点这里查看
讨论 / 同志们，答案就在这里（当然，也有悬赏）
renyanyu345 2012-10-17 21:54:00
点我顶贴 收藏 删除
program rq151;

var

a,b:int64;

ans:qword;

s:string;

i,j:integer;

b1:boolean;

begin

read(a,b);

b1:=true;

if a=b then

begin

writeln(0);

halt;

end;

if (a>0) and (b<0) then ans:=a-b;

if (a<0) and (b>0) then

begin

ans:=-a+b;

b1:=false;

end;

if (a>0) and (b>0) then

if a<b then

begin

ans:=b-a;

b1:=false;

end

else ans:=a-b;

if (a<0) and (b<0) then

if abs(a)>abs(b) then

begin

ans:=-a+b;

b1:=false;

end

else ans:=-b+a;

if not b1 then write('-');

str(ans,s);

for i:=length(s) downto 2 do

begin

write(s[length(s)-i+1]);

if i mod 3=1 then write(',');

end;

writeln(s[length(s)]);

readln;

readln;

end.

#1 bboinoi@2012-10-17 02:36:00
回复 删除
祝楼主noip比赛成功！！！ 求积分！

rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#2 bboinoi@2012-10-17 02:36:00
回复 删除
祝楼主noip比赛成功！！！ 求积分！

rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#3 bboinoi@2012-10-17 02:36:00
回复 删除
祝楼主noip比赛成功！！！ 求积分！

rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#4 bboinoi@2012-10-17 02:36:00
回复 删除
祝楼主noip比赛成功！！！ 求积分！

rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#5 bboinoi@2012-10-17 02:36:00
回复 删除
祝楼主noip比赛成功！！！ 求积分！

rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#6 bboinoi@2012-10-17 02:36:00
回复 删除
祝楼主noip比赛成功！！！ 求积分！

rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#7 bboinoi@2012-10-17 02:36:00
回复 删除
祝楼主noip比赛成功！！！ 求积分！

rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#8 bboinoi@2012-10-17 02:36:00
回复 删除
祝楼主noip比赛成功！！！ 求积分！

rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#9 bboinoi@2012-10-17 02:36:00
回复 删除
祝楼主noip比赛成功！！！ 求积分！

rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

#10 bboinoi@2012-10-17 02:36:00
回复 删除
祝楼主noip比赛成功！！！ 求积分！

rp++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

查看更多回复
提交回复