Выведите на экран числа кратные четырем в диапазоне от 230 до 297 располодив их по убыванию и укажите их количеств

Question

Информатика

Сувар

3 декабря, 16:13

Выведите на экран числа кратные четырем в диапазоне от 230 до 297 располодив их по убыванию и укажите их количеств

+3

Ответы (1)

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

Агланя · Answer 1

Var

i, k: integer;

begin

k : = 0;

for i : = 297 downto 230 do

if i mod 4 = 0 then

begin

write (i, ' ') ;

k : = k + 1;

end;

writeln (#13+'Количество = ', k) ;

end.