Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество трёхзначных чисел, кратных 4.

Question

Информатика

Нохелия

28 июня, 13:20

Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество трёхзначных чисел, кратных 4.

+1

Ответы (1)

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

Гервасия · Answer 1

Var

a, k: longint;

begin

read (a) ;

k : = 0;

while (a 0) do begin

if (a div 1000 > = 1) and (a div 1000 < = 9) and (a mod 4 = 0) then

inc (k) ;

read (a) ;

end;

writeln (k) ;

end.