Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Нужно,чтобы программа на ПаскальABC.NET с функцией при вводе определяла автоморфное число или не автоморфное.Умоляю,ну помогите...

Ответ оставил Гость

// 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
Не автоморфное