Задание:
Дано вещественное число – цена 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.
Знаете другой ответ?