Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1.2, 1.4, …, 2 кг конфет — Pascal(Паскаль)

program For6;

var
  price: real;
  i: integer;
  temp: real;

begin
  temp := 1.2;
  write('Введите цену за килограмм:');
  readln(price);
  for i := 1 to 5 do
  begin
    writeln('Сумма за ', temp, ' кг = ', (temp * price):3:3);
    temp := temp + 0.2;
  end;

end.

Leave a Comment

+ 89 = 92