Язык програмирования paskal/ : дано действительное - вопрос №88793971 от zar26 05.04.2021 07:43

Question

Информатика: Язык програмирования paskal/ : дано действительное число - цена 1 кг конфет вывести стои 1.2, 1.4 2 кг конфет

zar26 · Answer

    program for4;

    var
      i: integer;
      price_one: real;

    begin
      read(price_one);
      for i := 1 to 10 do writeln(i, ' кг. стоит - ', price_one * i, ' ');
    end.