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

Ответы 1

  • PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018Внимание! Если программа не работает, обновите версию!№1begin  var a:=ReadInteger.ToString;  Writeln(a=a.Inverse)end.Примеры2441False1991True№2begin  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Не автоморф
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years