讨论 - 我的程序为什么错了？

讨论 / 我的程序为什么错了？

夏琦 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.

查看更多回复

拥有 RQNOJ 账号，您可以：

提交回复

  快速帮助 | 运行状态 | 反馈举报 | 关于我们 | 免责声明 | 浙ICP备11060257号

    Processed in 0.0031	Second(s)
    Copyright (C) RQNOJ 2007-2019. All Rights Reserved.