Это невозможно. Ведь есть вероятность того,что карты рубашкой вверх не будут в 2 группах одинакового количества.
Var n,k : Integer;
Begin
k:=-1;
Readln(N);
While N>0 do
Begin
If (not Odd(N mod 10)) and ((N mod 10)>k) then k:=N mod 10;
N:=N div 10;
end;
If k=-1 then Writeln('не найдено') else Writeln(k);
end.
........ 1 байт=8 бит.
...........
.....
Для записи результата одного спортсмена требуется log(2)117 ≈ 7 бит (2^7 = 128). Объем информации о результатах 60 спортсменов = 60*7 = 420 бит.