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

Question

Информатика

Волант

21 января, 22:03

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

+5

Ответы (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.