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

var

   i, count, number: integer;

begin

   count := 0;

   i := 0;

   writeln('Введите последовательность чисел');

   repeat

       readln(number);

       if (number >= 100) and (number <= 999) and (number mod 4 = 0) then

           count := count + 1;

       i := i + 1

   until (number = 0) or (i >= 1000);

   writeln('Кол-во 3значных чисел кратных 4 =', count);

end.

Подробнее - на -

Объяснение: