var n,x,p,a : integer; Begin readln(n); a:=-1; while (n<>0) do begin x:=n mod 10; if x mod 2=0 then p:=x; n:= n div 10; end; if (p=0) then write(a) else write(p); End.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Ne bucurăm dacă informațiile v-au fost de ajutor. Dacă aveți întrebări suplimentare sau aveți nevoie de asistență, nu ezitați să ne contactați. Revenirea dumneavoastră ne-ar onora, așa că nu uitați să ne adăugați la favorite!