1
var
  x,i,j:integer;
  a:array[1..100]of integer;
begin
  read(x);i:=1;
  repeat
    a[i]:=x mod 2;
    x:=x div 2;
    inc(i);
  until x=0;
  for j:=i-1 downto 1 do
  write(a[j]);
end.

记得加分

第一题用数学方法,第二题用高精度计算.这题太简单了,你会不会,不是我刺激你,你这样是没有学习成果的.