PASCAL难题，高手请进

初赛题的程度。唉……

给你贴个源程吧，自己好好研究。

program v1; {-2进制的递归}

var n:longint;

procedure print (n:longint);
var q:longint;
begin
if n<>0 then
begin
q:=n div -2;
if n mod -2<0 then inc(q);
print(q);
write(n+q*2);
end;
end;

begin
readln(n);
print(n);
writeln;
end.

这种题也叫难题....

pascal。。。。。兄弟你是不是在学校阿 。。。。。还用pascal .
多年没碰了。。pascal注重它的语法结构非常严谨 学好这个严谨的能力 以后不吃亏 这个是主要的。。。