Найти кол. палиндромов массива

[proger_noob]

Задание:
найти количество палиндромов одномерного массива...
никак не могу придумать алгоритм

может кто нить сталкивался с этим и решил
помогите плиз
ПО БКП недопуск нарисовывается
хотябы алгоритм примерный подкиньте

если что палиндром это число которое одинково читается с обоих сторон:
(121, 1221, 555, 676, 929 и т.д.)

[puporev]

Напиши булевскую функцию Palindrm(x:integer):boolean;, которой в массиве будешь проверять палиндром или не палиндром, если палиндром, считаешь.
Палиндром числа можно определить так:

N-число
M:=N; запомним
S:=0; новое число
while N>0 do
  begin
     k:=N mod 10;
     S:=10*S+m;
      N:=N div 10;
   end;
if S=M then Palindrom:=true
else Palindrom:=false;
end;

[proger_noob]

допустим массив:
12,121,145,666,775
N=a(1)=12
M=12
S=0
cikl:
k:= 12 mod 10 = 2
S:=10*0+12=12
N:= 12 div 10 =1
S=12 M = 12 (получается палиндром? 12 не палиндром?)
или я не то пощитал?


спасибо что ответил

[proger_noob]

или после каждого тру надо счетчик поставить?

[evg_m]

function palindrom(x: integer): boolean;
var
  j,l: integer;
  s: string;
begin
  result:=true;
  s:=inttostr(x);
  l:=length(s);
  for j:=1 to l do
    if s[j]<>s[l-j+1] then begin result:=false; break; end;
end;
end;

[proger_noob]

а мы еще не учили эти зарезерв. слова
так чт сразу спалят что списал ))

[puporev]

Вот какую ты ахинею здесь написал?
k:= 12 mod 10 = 2
S:=10*0+12=12 //с какого? надо 10*0+2=2
N:= 12 div 10 =1 //1 mod 2 =1 S=2*10+1=21
S=12 M = 21 12 не палиндром
Если с головой не дружишь, не хами другим.

[proger_noob]

10*0+2=2
откуда +2?
вместо M у нас 12
в начале присвоили
я не хамил никому
я вооще то сказал спасибо
токо тон не тот подобрал

[SuperVisor]

Очень полезно пользоваться поиском по форуму:

http://www.programmersforum.ru/showt...ED%E4%F0%EE%EC
http://www.programmersforum.ru/showt...ED%E4%F0%EE%EC
http://www.programmersforum.ru/showt...ED%E4%F0%EE%EC
http://www.programmersforum.ru/showt...ED%E4%F0%EE%EC
http://www.programmersforum.ru/showt...ED%E4%F0%EE%EC
http://www.programmersforum.ru/showt...ED%E4%F0%EE%EC