讨论 / 我的程序为什么错了?
夏琦 2012-07-15 06:34:00
点我顶贴 收藏 删除
请各位大虾指点一下!

var

a,b:int64;

s:string;

h:integer;

begin

read(a,b);

s:=str(a-b);

h:=length(s);

repeat

h:=h-1;

if h mod 3=0 then write(',') else write(copy(s,h,1));

until h<=1

end.

查看更多回复
提交回复