Question

Sa se afle toate numerele din intervalul [a,b] care au suma cifrelor un numar par. Plsss rapid dau funda. In algoritm sau in pasi va roog.

Answer 1

var a,b,c,n,s:integer;
begin
read(a,b);
repeat
n:=a;
s:=0;
while n>0 do
begin
c:=n mod 10;
s += c;
n:= n div 10;
end;
if (s mod 2 = 0) then writeln(a);
a += 1;
until (a-1)=(b+1);
end.