Question

Помогите составить программу решения задачи в паскале АВС.
Дано вещественное число - цена  1 кг конфет. Вывести стоимость 0.1,0.2...,1кг конфет

Answer 1

var C, i: real;
begin
     readln(C); 
     i := 0.1;
     while (i <= 1) do
     begin
          writeln(C * i);
          i := i + 0.1;
     end;
end.

Уже решал, но теперь по-другому)