Триморфное число-число, запись куба которого оканчивается цифрами самого этого числа.

Например, 4^3=64,24^3=13 824,249^3=15 438 249. определить, является ли введенное число тримоформным.

Var

m, n:longint;

s1, s2:string;

k1, k2:integer;

begin

Write ('Введите целое число без знака: ') ; Readln (m) ;

Str (m, s1) ; k1:=length (s1) ;

n:=m*sqr (m) ; Str (n, s2) ; k2:=length (s2) ;

if s1=Copy (s2, k2-k1+1, k1) then Writeln ('Число триморфное')

else Writeln ('Число не триморфное')

end.

Тестовое решение:

Введите целое число без знака: 249

Число триморфное