Триморфное число-число,запись куба которого оканчивается цифрами самого этого числа. Например,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 Число триморфное