Определить среди шестизначных чисел палиндромы (палиндромом называется число, которое...

Question

Определить среди шестизначных чисел палиндромы (палиндромом называется число, которое читается слева направо и с права налево одина-ково) в паскаль.

Comments

Определить - это проверить, является ли введенное с клавиатуры число палиндромом, или вывести все возможные палиндромы среди шестизначных чисел?

---

среди введёных

---

чтоб ты вводил, а он тебе говорил есть ли там палиндромы

---

Надо использовать цикл, mod и div. Если будет время, напишу программу.

---

А, не, цикл не нужен.

---

блин. мне конкретно код нужен

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var s:=ReadInteger('Введите шестизначное натуральное число:').ToString;
  if s=ReverseString(s) then Writeln('Это палиндром')
  else Writeln('Это не палиндром')
end.

Тестовое решение
Введите шестизначное натуральное число: 158851
Это палиндром