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

From

Egor Tsygvintsev (2:452/77.57)

To

Andrew Ezhguroff

Date

2002-10-04T21:34:38Z

Area

RU.ALGORITHMS

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

 Пятница Октябрь 04 2002 09:45, Andrew Ezhguroff писал Oleg I. Khovayko:
 OIK>> A!!! Перепутал условие с сишным do {} while();
 OIK>> А в repeat/until там же выход по TRUE, а не по FALSE!!!
 OIK>> Короче, поправка:
 OIK>> Надо вместо "until x <> 0;" писать "until x = 0;"

 AE> Все равно не работает: если у нас, например, десятичное число 192
 AE> (двоичное - 11000000), то твоя программа выдаст 0000000011 вместо
 AE> 0000000011000000.
люди, не мучайтесь :)))


─── Тут начинается файл golded.out ───
var s,c:string;
    x:integer;
procedure DecToBin(x:integer);
begin
  if x<>0 then
   begin
    str(x mod 2,c);
    s:=c+s;
    DecToBin(x shr 1);
   end;
end;
begin
  readln(x);
  DecToBin(x);
  writeln(s);
end.
─── А здесь golded.out кончается ───
                    Всего доброго,
                    Egor Tsygvintsev.
--- ... Линия отреза ...
 * Origin:  Крепче за шоферку держись, баран!  (2:452/77.57)