作业帮Pascal列出1〜1000内的所有既是完全平方数又是回文数的整数
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/11 07:15:06
xN@ ĀV`$qR`ɔDЅ
BHF_w
+_pww=MS˺pPGKbS[|vy n >Ɛ u5!%|(Ěh>P}F7NwӋcܞr88qׯY )D+ʥ7t&Q2"X~ nwr6AYX!3jo?dL+-o0wIyxmmVI2-S 4W ~aM"
lfYmZ̡b5&A,Bj1b{+dϣU3Q,щm\QM2`hM8f- B#iJ+`
Pascal列出1〜1000内的所有既是完全平方数又是回文数的整数
Pascal列出1〜1000内的所有既是完全平方数又是回文数的整数
Pascal列出1〜1000内的所有既是完全平方数又是回文数的整数
关于这个问题,可以从1到31循环,如果这个数的平方是回文数,那么输出.这样只要编一个判断回文的函数并用for循环枚举就可以了参考程序：vari:longint;functionhw(x:longint);vari,l:longint;s:string;beginstr(x,s);l:=length(s);fori:=1toldiv2doifs[i]s[l-i+1]thenexit(false);hw:=true;end;beginfori:=1to31doifhw(i*i)thenwriteln(i*i);end.