Question

| 20.2 Напишите программу которая в последовательности натуральных чисел вычисляет сумму трехзначных чисел кратных 4 программа получает на вход натуральные числа количество введённых чисел неизвестно последовательность чисел заканчивается числом 0 0 признак окончания ввода не входит в последовательность количество чисел не превышает 20 введённые числа не превышают 1500. Программа должна вывести одно число: сумму трехзначных чисел, кратных четырем.​

Answer 1

program raf105;

var a,sum: integer;

begin

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

writeln('Чтобы закончить введите 0');

repeat

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

   then sum:= sum+a;

 readln(a);

until a=0;

writeln('Сумма трёхзначных чисел кратных четырём: ',sum);

end.

PascalABC 3.4.2