Question

На обработку поступает положительное целое число,не превышающие 10 в 9 степени.Нужно написать программу которая выводит на экран сумму честных цифр этого числа,не меньших 5.

Answer 1

var s,n:integer;

begin

s:=0;

readln(n);

while n>0 do begin

if ((n mod 10) mod 2 = 0) and (n mod 10>=5) then

s:=s+n mod 10;

n:=n div 10;

end;

writeln(s);

end.