Найдите целые числа-палиндромы, которые при возведении в квадрат тоже дают палиндромы — Pascal(Паскаль)

               
program borlpasc;
{найдите целые числа-палиндромы, которые при возведении в квадрат
 тоже дают палиндромы}
var i,i1,i2:longint;
function Palindrom(n:longint):boolean;
var n1,n2,o:longint;
begin n1:=n;n2:=0; {n1 - данное число, n2 - число которое получится}
      while n1>0 do
        begin o:=n1 mod 10;{о - остаток от деления на 10}
              n1:=n1 div 10;
              n2:=n2*10+o;
        end;
      Palindrom:=(n=n2);
end;
begin writeln('Введите интервал поиска:');
      write('Начало интервала:');readln(i1);
      write('Конец  интервала:');readln(i2);
      for i:=i1 to i2 do
              if Palindrom(i) and Palindrom(sqr(i))
                 then writeln(i,'-палиндром  ',sqr(i),'-палиндром');
end.

Leave a Comment

54 − 46 =