PASCAL难题,高手请进
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注重它的语法结构非常严谨 学好这个严谨的能力 以后不吃亏 这个是主要的。。。
相关内容