№1
Дано четырехзначное число. Проверить, является ли оно палиндромом. Примечание: палиндромом называется число, слово или текст, которые одинакового читаются слева направо и справа налево. Например, в нашем случае это числа 1441, 5555, 7117 и т. д.
№2
Автоморфным числом называется число, равное последним цифрам своего квадрата. Например, 52=25, 252=625. Составить программу, которая определяет, являются ли числа автоморфными.
Ответы
Ответ дал:
0
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
Не автоморф
Внимание! Если программа не работает, обновите версию!
№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
Не автоморф
Похожие вопросы
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад