19151352089147 23931154 208919 23125 31513519

Question

Информатика: 19151352089147 23931154 208919 23125 31513519

dashahomjak1 · Accepted Answer

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
function IsAutomorph(s:string):boolean;
// Возвращает true, если строка s изображает
// автоморфное число, иначе возвращает false
begin
var b:BigInteger;
if BigInteger.TryParse(s,b) then
Result:=sqr(b).ToString.Right(s.Length)=s
else Result:=false
end;

begin
var s:=ReadlnString('Введите натуральное число:');
if IsAutomorph(s) then Println('Автоморфное')
else Println('Не автоморфное')
end.

Тестовые решения:
Введите натуральное число: 12890625
Автоморфное

Введите натуральное число: 3245
Не автоморфное

MOGZ ответил