Как закодировать?

From

Egor Tsygvintsev (2:452/77.57)

To

Oleg I. Khovayko

Date

2002-10-03T22:50:20Z

Area

RU.ALGORITHMS

Добрый день, Oleg

из 10 в 2

procedure DecToBin(x:integer, val s:string);
begin
  if x<>0 then
   begin
    s:=str(x mod 2)+s;
    DecToBin(x shr 1,s);
   end;
end;

                    Всего доброго,
                    Egor Tsygvintsev.
--- ... Линия отреза ...
 * Origin:  Крепче за шоферку держись, баран!  (2:452/77.57)