Question

В шестизначном числе найти сумму четных цифр(паскаль)

Answer 1

var a,s,i:integer;

begin

 writeln('введите шестизначное число');

 readln(a);

 s:=0;

 for I:=1 to 6 do begin

   if a mod 2 = 0 then s:=s+a mod 10;

   a:=a div 10;

 end;

 writeln(s);

end.