Вопрос пользователя:
вывести на экран таблицу стоимости сыра в диапазоне от 100 до 1000 г,шагом=100,цена кг сыра 280 рублей…помогите пожалуйста
Илюха отвечает:
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.