Question

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

Вычисление стоимости покупки.
Введите исходные данные:
Цена одного килограмма яблок (руб.) = 8.5
Вес яблок (кг) = 2.3
Стоимость покупки: 19.55 руб

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

Answer 1

program appl;
var c,s,n:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) = ');
readln(c);
write('Вес яблок (кг) = ');
readln(n);s:=c*n;
write('Стоимость покупки: ',s,' руб');
end.