Question

Написать программу в паскале.
Дано произвольное целое положительное число k. Найти сумму всех чётных цифр этого числа

Answer 1

program folsc;
uses crt;

var s, n:longint;

begin
s:=0;
read (n);
while (n <> 0) do begin
if ((n mod 10) mod 2) =0 then s:=s+n mod 10;
n:=n div 10 end;
writeln (s);
end.