Question

Să se afișeze prima cifră pară a unui număr natural n. Dacă numarul nu are nicio cifra pară, se va afisa -1.

Answer 1

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.