在线等PASCAL初级编程问题,不够可以加

来源：百度知道 编辑：UC知道 时间：2024/05/22 18:02:26
当输入一个给定的数N后,能输出所有不超过N的,其平方由左右对称的数字组成的数.例如:N=23,则输出1,2,3,11,22,他们的平方依次是1,4,9,121,都是左右对称的组成数. 哪位大侠给个算法,谢谢了.

很简单，帮你了：

program test;

function IsPalindrome(n : qword) : boolean;
var
   s : string;
   i, j : integer;
begin
   str(n, s);
   i := 1;
   j := length(s);

   while i <= j do
   begin
      if s[i] <> s[j] then
      begin
         IsPalindrome := false;
         exit;
      end;

      i := i + 1;
      j := j - 1;
   end;

&nbs