Question

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

Answer 1

var a,sum:integer;

begin

read(a);

while(a<>0)do begin

if(a mod 4=0)and(a>99)and(a<1000)then sum:=sum+a;

read(a);

end;

write(sum);

end.