program sochan_max; uses crt; var n,so,max:longint; begin clrscr; write('Nhap n: '); readln(n); max:=-1; while n>0 do begin so:=n mod 10; if (so mod 2=0) and (so>max) then max:=so; n:=n div 10; end; write(max); readln; end.
uses crt; var n,max:longint; begin clrscr; write('n=');readln(n); max:=-1; while n<>0 do begin if (n mod 10 mod 2=0)and(n mod 10>max) then max:=n mod 10; n:=n div 10; end; writeln(max); readln end.