Var n: longint;
sum: integer;
begin
readln (n);
sum :=0;
write n>0 do begin
If n mod 10 mod 2 = 0 theen
Sum : = + n mod 10;
n:= n div 10
end;
writeln (sum);
end.
Какая умова задачи ?!

5675431    3   15.02.2021 16:37    3