Напишите программу, которая в последовательности натуральных чисел определяет сумму...

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

read(a);

end;

write(sum);

end.