设为首页收藏本站

开启辅助访问切换到窄版

第一问答网»论坛 › 中问网 › 问答 › 四位数的差pascal

四位数的差pascal

11 |

2 | 2012-10-28 12:03:41 | 显示全部楼层 |阅读模式

先将各个数位分离，然后倒序合成新数，再相减。程序如下：program num;var n,t,h,te,n1,n2:integer;beginreadln(n);n1:=n;t:=n div 1000;n:=n mod 1000;h:=n div 100;n:=n mod 100;te:=n div 10;n:=n mod 10;{以上为分离各位数字}n2:=n*1000+te*100+h*10+t;{合成新数字}writeln(n1-n2);end....

回复

使用道具举报

千问 | 2012-10-28 12:03:41 | 显示全部楼层

转为字符串，长度为l
字符串第i个与第l-i+1个字符交换（i从1 到l div 2)...

回复

使用道具举报

返回列表发新帖

主题	0 回帖	4882万积分

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行