Найдите целые числа, которые при возведении в квадрат дают палиндромы
Найдите целые числа, меньшие n, которые при возведении в квадрат дают
палиндромы, например, 26 во второй степени = 676.
Решение:
program er;
var n,i:longint;
function polin(n:longint):boolean;
var i,j:longint;
s:string;
itog:boolean;
begin
itog:=true;
str(n,s);
if length(s)=1 then itog:=false;
for i:=1 to length(s) do begin
j:=length(s)-i+1;
if s[i]<>s[j] then itog:=false; end;
polin:=itog;
end;
BEGIN
write('Введите N');
readln(n);
writeln('Эти числа: ');
for i:=1 to n do
if polin(i*i) then
writeln(i,' (',i*i,')');
readln;
END.
|
| Категория: Сложные задачи | Добавил: deespe (04.02.2011)
|
| Просмотров: 3269
| Рейтинг: 3.0/1 |
|
