№1 Дано четырехзначное число. Проверить, является ли оно палиндромом. Примечание:...

Question

№1
Дано четырехзначное число. Проверить, является ли оно палиндромом. Примечание: палиндромом называется число, слово или текст, которые одинакового читаются слева направо и справа налево. Например, в нашем случае это числа 1441, 5555, 7117 и т. д.
№2
Автоморфным числом называется число, равное последним цифрам своего квадрата. Например, 52=25, 252=625. Составить программу, которая определяет, являются ли числа автоморфными.

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var a:=ReadInteger.ToString;
  Writeln(a=a.Inverse)
end.

Примеры
2441
False

1991
True

№2

begin
  var n:=int64(ReadInteger);
  var s:=n.ToString;
  var s2:=(n*n).ToString;
  if s2.Right(s.Length)=s then Writeln('Афтоморф')
  else Writeln('Не автоморф')
end.

Примеры
625
Афтоморф

1020
Не автоморф