Вывести на экран таблицу стоимости сыра в диапазоне от 100 до 1000 г,шагом=100,цена кг сыра 280

Мурад1001 Мурад1001    1   04.03.2019 03:40    95

Ответы
герман123344444 герман123344444  24.05.2020 01:12

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика