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

Question

Информатика

Барб

17 января, 03:43

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

+2

Ответы (1)

Знаете ответ на вопрос?

Гисак · 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.