pascal程序完全平方java 回文数数

来源：蜘蛛抓取(WebSpider) 时间：2012-08-01 06:39 标签： java 回文数
Pascal教程(整理版)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
Pascal教程(整理版)
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢Pascal 教程_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者
评价文档：
喜欢此文档的还喜欢
Pascal 教程
这​是​P​a​s​c​a​l​教​程​,​内​容​由​参​考​资​料​排​版​编​辑​。
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
大小：739.87KB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢Pascal基础题100道合集(全)_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
Pascal基础题100道合集(全)
P​a​s​c​a​l​基​础​题0道​合​集​(​全​)
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢求判断回文数的解决方案_pascal吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：7,028贴子：
求判断回文数的解决方案收藏
如题，高手出来教教小弟一个低级问题，就是如何判断一个数是不是回文数。详细点，谢谢
var s:function aa(a:longint):var c:array[1..10]
b,s,j,k,i:beginb:=a;i:=11;while a&0 do begin i:=i-1;
c[i]:= a mod 10;
a:=a div 10; j:=0; for k:=10 downto i do
j:=j*10+c[k];
if j=b then
else aa:=begin
write(aa(s));end.
var s:var i:longword=1;var b:boolean=beginreadln(s);repeati:=i+1;b:=b and (s[i]=s[length(s)-i+1]);until (i&length(s) div 2) or not(b);writeln(b);end.
function check(s:string):var i:beginfor i:=1 to ord(s[0]) do if s[i]&&s[ord(s[0])-i+1] then exit(false)exit(true);var s:beginreadln(s);if check(s) then writeln('yes') else writeln('no');end.
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或

我要回帖

更多关于 java 回文数 的文章

 

随机推荐