Question

вводится натуральное число. найти сумму четных цифр, входящих в его состав ​

Answer 1

var a,s,n:integer;

begin

 writeln('Введите натуральное число');

 readln(n);

s:=0;

 while n>0 do begin;

 a:= n mod 10;

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

 n:=n div 10;

 end;

 writeln('сумма четных цифр,входящих в число: ', s);

end.