Question

дана стоимость 1 кг конфет (ввод с клавиатуры), вывести стоимость 0.2, 0.4, 0.6, ..., 2.4 кг

Answer 1

var

  price:real;

  i:byte;

begin

  write('Введите стоимость 1 кг конфет ');

  readln(price);

  for i := 1 to 12 do

    writeln('Стоимость ', i / 5 :3:1, ' кг конфет состаляет ', i * price / 5:0:2, ' руб.');

end.