有在线friend吗？

var s,n,m,i:integer;
    st1,st2:string;
begin
  readln(n);i:=n;st1:='';
  repeat
    s:=i;m:=s mod 2;
    str(m,st2);
    st1:=st2+st1;
    i:=trunc(s/2);
  until (s=i) or (i=0);
  writeln(st1);
end.



---------------------------------------
有空加我的Q:382229788，我等你

    
[em3][em3]