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

Question

Информатика

Алиб

20 декабря, 20:29

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

+4

Ответы (1)

Знаете ответ?

Гюльпери · 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.