profile
Опубликовано 6 лет назад по предмету Информатика от Annnnna

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

  1. Ответ
    Ответ дан foxdem

    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.

Самые новые вопросы