Question

Значение стоимости 1 кг яблок вводится с клавиатуры. Вывести на экран 0,6;1,2;1,8;2,4 и т.д. до 7,2 киллограмм яблок

Answer 1

var a,c: real;

begin

write ('Введите стоимость 1 кг яблок: ');

readln (c);

a := 0.6;

while a <= 7.2 do

begin

writeln(a:3,' кг яблок стоит ', a*c,' руб.');

a := a + 0.6

end

end.