求判断回文数的解决方案

只看楼主
收藏
回复

七月澈
A+B
1

如题，高手出来教教小弟一个低级问题，就是如何判断一个数是不是回文数。详细点，谢谢

ax_pokl
begin
9

var s:ansistring;
var i:longword=1;
var b:boolean=true;
begin
readln(s);
repeat
i:=i+1;
b:=b and (s[i]=s[length(s)-i+1]);
until (i>length(s) div 2) or not(b);
writeln(b);
end.

不感兴趣

开通SVIP免广告

怎么还在go
方格取数
4

function check(s:string):boolean;
var i:longint;
begin
for i:=1 to ord(s[0]) do if s[i]<>s[ord(s[0])-i+1] then exit(false)
exit(true);
end;
var s:string;
begin
readln(s);
if check(s) then writeln('yes') else writeln('no');
end.

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示

4回复贴，共1页

<<返回pascal吧

分享到:

日	一	二	三	四	五	六