Дано вещественное число – цена 1кг конфет. Вывести стоимость 0.1, 0.2, … , 1кг. Входные...

Question

Дано вещественное число – цена 1кг конфет. Вывести стоимость 0.1, 0.2, … , 1кг. Входные
данные: ввести одно вещественное число A (1<=</span>A<=100<span>). Выходные
данные: вывести стоимость 0.1, 0.2, … , 1кг
конфет с точностью до 4 цифр в дробной части.

Answer 1

Var a, i: real;
begin
     readln(a);
     while (i <= 1) do<br>     begin
         i := i + 0.1;
         writeln(i, ' kg -> ', i * a:4:4, ' y.e.');
     end;
end.

:))