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.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile oferite v-au fost de ajutor. Pentru orice întrebare sau clarificare suplimentară, echipa noastră vă stă la dispoziție. Revenirea dumneavoastră ne onorează – nu uitați să ne salvați în lista de favorite!
