Дано целое число n(> 0), проверить является ли оно представлением целого двоичного числа

var x,n : integer;

begin

x: = n;

while(n > 0) do

begin

  if( n mod 10 > = 2) then begin

      writeln('не двоичное число');

    break;

    end;

  n : = n div 10;

  end;

  writeln(x);

end.

если предположить, что сначала уходили те, кто надел обувь большего размера, то таких будет, как минимум, двое. третий уходящий может надеть свою обувь. поэтому правильным ответом будет (б) 2 человека.

100*1000000/8=12500000 байт в секунду