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

Question

Информатика

Исакей

4 декабря, 05:27

Выведите на экран числа кратные четырем в диапазоне от 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.