设为首页收藏本站

开启辅助访问切换到窄版

第一问答网»论坛 › 中问网 › 问答 › 用Pascal编一个程序

用Pascal编一个程序

11 |

1 | 2007-4-17 08:21:30 | 显示全部楼层 |阅读模式

上面的不行,应是program xxx; var a,b:integer; begin for a:=0 to 9 do for b:=0 to 9 do {要从0开始，不然40就搜不到了}if (b*10+a)-(a*10+b)=36 then writeln(a,b); end;

回复

使用道具举报

千问 | 2007-4-17 08:21:30 | 显示全部楼层

program dd(input,output);var a,b,i:Integer;begin for i:=10 to 63 do begin a:=i div 10; b:=i mod 10;if (i+36=a+b*10) then write(i:4);end;end.因为64以上的数加36大于等于100，所以只用循环到63！参考资料：我

已赞过已踩过36 then break;00 end;write(i);end.

回复

使用道具举报

返回列表发新帖

主题	0 回帖	4882万积分

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行