ОЧ
Оксана Чулакова
var N : Word; S : String;
begin
Write('N = '); ReadLn(N);
S := ''; while N > 0 do begin S := Chr(N mod 2 + 48) + S; N := N shr 1; end;
WriteLn(S);
end.
Не надоело ещё такие задачи решать? Уже миллион раз их решили, нет, надо ещё раз спросить.