ИИ
Игорь Игоревич
100111001000000111001000!!!
Я для себя программку такую написал
program lol;
uses crt;
var
a: array[1..100] of byte;
n,i,c:integer;
begin
readln(n);
c:= 0;
repeat
c:= c + 1;
a[c]:= n mod 2;
n:= n div 2;
until n = 0;
for i:= c downto 1 do
write(a[i]);
writeln();
end.
Напиши если помог!!!