pascal问题 用下面的程序求回文数得不到结果 哪有问题?

[复制链接]
查看11 | 回复1 | 2010-1-29 16:41:06 | 显示全部楼层 |阅读模式
var n,m,i:longint;function (n:longint):boolean;var i,j:longint;st:string;beginstr(n,st);j:=length(st);i:=1;while (st=s[j])and(ij then ss:=trueelse ss:=false;end;beginreadln(m,n);for i:=m to n do if hws(i) then writeln(i);end. 累死了,给点钱
回复

使用道具 举报

千问 | 2010-1-29 16:41:06 | 显示全部楼层
求回文数干吗用递归?用循环不行吗?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行