Question

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

Answer 1

var cena,i,b: real;

begin

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

readln(cena);

if (cena>0) then begin

i:=0.6;

while (i<=7.2) do

begin

b:=cena*i;

writeln(i,' кг яблок = ',b);

i:=i+0.6;

end;

end else writeln('Цена не может быть равна 0');

end.