Question

Вводится последовательность целых чисел, конец ввода – число, в котором две последние цифры равны. Найти количество введенных чисел, кратных 4
PASCAL ABC

Answer 1

Var A,k:integer;
Begin
k:=0;
Repeat
Read(A);
if A mod 4 = 0 then k:=k+1;
Until A mod 10 = (A div 10) mod 10;
WriteLn('Искомое количество: ',k);
End.