Ответы
Ответ дал:
0
s:= str(number);
for := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then writeln("Не палиндром")ж
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад