pascal 回文数猜想（自定义函数做）（写主程序）

时间： 发布人：pyh240860340
pascal 回文数猜想（自定义函数做）（写主程序）

已解决问题

谷歌pyh240860340用户在提交了关于“斗罗大陆pascal 回文数猜想（自定义函数做）（写主程序）”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-02-28T02:00:03。希望大家能够帮助她。

详细问题描述及疑问：期待您的答案，不知道说什么,送你一朵小红花吧 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：云姐a2541  

百度知道贴代码时不支持Pa备断scal语言，我选的念斤政鲁是C语言，显示的彩色不是错误。请务必采纳。
va问答r
a,b,i,n,num:longint;
l:integer;
ch:ch办便难轮ar;
st1,st2:string;
fu目为官音鲜严双当虽然四nctionpd:bo角块阿olean;//判断回文
var
i:longint;
begin
str(n,st1);
fori:=1tolength(st1)div2do
ifst1[i]<>st1[length(st1)-i+1]
t蛋且甚矛斤倍福精字汉henexit(true);
pd:=false;
e钱境仅继展nd;
begin
readln(n);
n垂演里毫um:=0;//次数
whilepddo
begin
str(n,st1);
st2:=st1;
fori:=1tolength(st2)div2do
begin
c显副应斯引安h:=st2[i];
st2[介样州章投总坏模干棉i]:=st2[length(st2)-i+1];
st2[length(st2)-i+1]:=ch;
end;
val(st1,a,l);
val(st2,b,l);
n题夫局:=a+b;
i底查批谁阳送nc(**m);
end;
writeln(**m);
end.