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

Question

Информатика

Анисуддин

17 марта, 00:47

Значение стоимости 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.