Question

Дано натуральное число n. Проверить является ли это число палиндромом.

Answer 1

s:= str(number);

for := 1 to length(s)  div 2 do

  if s[i] <> s[length(s) - i + 1] then writeln("Не палиндром")ж