Question

Sa se afiseze toate nr. din intervalul a,b care au suma cifrelor un nr. par

Answer 1

Program Tema;

Var a,b,n,n0,s:integer;

Begin
writeln('Scrieti care sunt capetele intervalului: ');
read(a,b);
writeln('Numerele care au suma cifrelor un numar par sunt: ');
n:=a;
while n<=b do
begin
s:=0;
n0:=n;
while n>0 do
begin
s:=s+n mod 10;
n=n/10;
end;
if s mod 2=0 then
write(n0,' ');

n:=n0+1;
end;
End.