Предмет: Информатика,
автор: Annnnna
вывести на экран таблицу стоимости сыра в диапазоне от 100 до 1000 г,шагом=100,цена кг сыра 280 рублей...помогите пожалуйста
Ответы
Автор ответа:
0
program sir;
var y,x,h:real;
begin
x:=280;
h:=0.1;
while h<=1 do
begin
y:=x*h;
writeln('Цена за ',h*1000,' грамм ',y,' руб');
h:=h+0.1
end;
end.
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Физика,
автор: akhadildan
Предмет: Обществознание,
автор: vika2009029
Предмет: Химия,
автор: aeroschok
Предмет: Химия,
автор: himii