Написать программу вычисления стоимости некоторого количества (по весу) яблок. Нижепредставлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление стоимости покупки.

Введите исходные данные:

Цена одного килограмма яблок (руб.) = 8.5

Вес яблок (кг) = 2.3

Стоимость покупки: 19.55 руб

написать на Turbo Pascal.

Question

Информатика

Зина

9 июля, 20:57

Написать программу вычисления стоимости некоторого количества (по весу) яблок. Нижепредставлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Вычисление стоимости покупки.

Введите исходные данные:

Цена одного килограмма яблок (руб.) = 8.5

Вес яблок (кг) = 2.3

Стоимость покупки: 19.55 руб

написать на Turbo Pascal.

+2

Ответы (1)

Знаешь ответ?

Петоша · Answer 1

Program appl;

var c, s, n:real;

begin

writeln ('Вычисление стоимости покупки.');

writeln ('Введите исходные данные:');

write ('Цена одного килограмма яблок (руб.) = ');

readln (c);

write ('Вес яблок (кг) = ');

readln (n); s:=c*n;

write ('Стоимость покупки: ', s,' руб');

end.