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

Program fghj;

var

a, k, n: integer;

begin

a:=1;

while a0 do

begin

writeln ('Введите число в диапазоне (0; 30000) : ');

readln (a);

if a0 then

begin

if (a div 1000=0) and (a mod 4=0) then k:=k+1;

n:=n+1

end;

if n=1000 then

begin

a:=0;

writeln ('Количество чисел равно 1000, процесс останавливается');

end;

end;

writeln ('Количество трехзначных чисел, кратных 4 равно: ', k);

readln;

end.

Чтобы выделить среди вводимых чисел трехзначные, используем операцию выделения целой части от деления на 1000 (a div 1000) - такая целая часть должна быть равна 0 для трехзначного числа. Числа, кратные 4 находим через выделение остатка от деления на 4, он тоже должен быть нулевым при целочисленном делении (a mod 4=0).

При решении используется оператор цикла с предусловием while а0 do ..., как только с клавиатуры вводится 0, цикл закончит работу.