Предмет: Информатика,
автор: balenova
Написать программу вычисления стоимости некоторого количества (по весу) яблок. Нижепредставлен рекомендуемый вид экрана во время работы программы (данные, введенныепользователем, выделены полужирным шрифтом).
Вычисление стоимости покупки.
Введите исходные данные:
Цена одного килограмма яблок (руб.) = 8.5
Вес яблок (кг) = 2.3
Стоимость покупки: 19.55 руб
написать на Turbo Pascal.
Ответы
Автор ответа:
0
program appl;
var c,s,n:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) = ');
readln(c);
write('Вес яблок (кг) = ');
readln(n);s:=c*n;
write('Стоимость покупки: ',s,' руб');
end.
var c,s,n:real;
begin
writeln('Вычисление стоимости покупки.');
writeln('Введите исходные данные:');
write('Цена одного килограмма яблок (руб.) = ');
readln(c);
write('Вес яблок (кг) = ');
readln(n);s:=c*n;
write('Стоимость покупки: ',s,' руб');
end.
Интересные вопросы
Предмет: Английский язык,
автор: anastasiaasenko0
Предмет: История,
автор: snnsndnnssnndn
Предмет: Қазақ тiлi,
автор: malikmmedina
Предмет: Алгебра,
автор: АрикаКуцыстова
Предмет: Математика,
автор: 16112004