"Напишите программу, которая находит сумму четных цифр введенного числа".
Почему программа зацикливается?
Код:
var a,b,n: integer;
begin
read(b);
a:=0;
while b<>0 do
n:= b mod 10;
begin if n mod 2 = 0 then begin
b:= b div 10;
a:= a+n end
else b:= b div 10
end;