Язык програмирования paskal/ : дано действительное - вопрос №88793971 от Ariya03 20.06.2022 05:36

Question

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

Ariya03 · 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.