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

Составим уравнение воспользуемся расширенной записью числа 87=an²+bn+2 → an²+bn-85=0 известно, что если многочлен с целочисленными коэффициентами имеет хотя бы один вещественный корень, то он находится среди делителей свободного члена. нас интересуют только натуральные делители, большие 2, поскольку n - основание системы счисления и в этой системе имеется цифра 2. 85 = 5 × 17. число 17 не подходит, потому что 17> 10 и двухзначное десятичное число в системе счисления с основанием, большим 10, не может иметь в записи больше двух знаков. следовательно, n=5. для проверки переводим 87 в систему счисления по основанию 5. 87 / 5 = 17, остаток 2 17 / 5 = 3, остаток 2 3 / 5 = 0, остаток 3. выписываем остатки в обратном порядке: 322 87₁₀ = 322₅ - в числе три разряда и оно оканчивается двойкой. ответ: n=5

Var     x1,x2: char;     y1,y2: byte; begin writeln('координаты белого ферзя: '); write('                    x(a..h) = '); readln(x1); write('                    y(1..8) = '); readln(y1); writeln('координаты чёрного ферзя: '); write('                    x(a..h) = '); readln(x2); write('                    y(1..8) = '); readln(y2); y1: =abs(y1-y2); y2: =abs(ord(x1)-ord(x2)); if (y2=0)or(y1=0)or(y2-y1=0)or(y1< 2)and(y2< 2) then writeln('бьёт') else writeln('не бьёт'); end.