Написать программу вычисления стоимости некоторого количества (по весу) яблок....

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.