Pascal列出1〜1000内的所有既是完全平方数又是回文数的整数

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.