Răspuns :
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.
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!