Дано вещественное число – цена 1кг конфет. Вывести стоимость 0.1, 0.2, … , 1кг.Входные данные: ввести одно вещественное число A (1<=A<=100). Выходные данные: вывести стоимость 0.1, 0.2, … , 1кг конфет с точностью до 4 цифр в дробной части.
Var a, i: real; begin readln(a); while (i <= 1) do begin i := i + 0.1; writeln(i, ' kg -> ', i * a:4:4, ' y.e.'); end; end. )
