Question

Дано вещественное число – цена за 1 кг конфет. Вывести стоимость 0.1кг, 0.2кг, 0.3кг .. 0.9 кг конфет (использовать цикл repeat)

Answer 1

program;
var
C:Real;
i:Integer;

begin
Write('Введите стоимость 1 кг конфет: ');
Readln(C);
Writeln('Cтоимость конфет: ');
For i:=1 to 10 do Writeln(i/10,'кг: ',i/10*C);
end.