Решите ЗАПОЛНЕНИЕ И ПЕЧАТЬ ДВУМЕРНОГО МАССИВА»
1 2 3 ⋯ n−2 n−1 n
2 1 2 ⋯ n−2 n−2 n−1
3 2 1 ⋯ n−4 n−3 n−2
⋮ ⋮ ⋮ ⋱ ⋮ ⋮ ⋮
n−1 n−2 n−3 ⋯ 2 1 2
n n−1 n−2 ⋯ 3 2 1

Question

Информатика: Решите ЗАПОЛНЕНИЕ И ПЕЧАТЬ ДВУМЕРНОГО МАССИВА» 1 2 3 ⋯ n−2 n−1 n 2 1 2 ⋯ n−2 n−2 n−1 3 2 1 ⋯ n−4 n−3 n−2 ⋮ ⋮ ⋮ ⋱ ⋮ ⋮ ⋮ n−1 n−2 n−3 ⋯ 2 1 2 n n−1 n−2 ⋯ 3 2 1

Ксения1802 · Accepted Answer

Var   d1,d2,n:integer;   k,s:longint; begin   Write( Введите натуральное двухзначное число: ); Read(n);   d1:=n div 10; d2:=n mod 10;   k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));   Write(n, : );   if k=s then Writeln( Квадрат числа ( ,k,       ) равен учетверенной сумме кубов его цифр )   else Writeln( Квадрат числа ( ,k,       ) не равен учетверенной сумме кубов его цифр ( ,s, ) ) end. Тестовое решение: Введите натуральное двухзначное число: 48 48: Квадрат числа (2304) равен учетверенной сумме кубов...

Решите ЗАПОЛНЕНИЕ И ПЕЧАТЬ ДВУМЕРНОГО МАССИВА» 1 2 3 ⋯ n−2 n−1 n2 1 2 ⋯ n−2 n−2 n−1 3 2 1 ⋯ n−4 n−3 n−2⋮ ⋮ ⋮ ⋱ ⋮ ⋮ ⋮ n−1 n−2 n−3 ⋯ 2 1 2n n−1 n−2 ⋯ 3 2 1

MOGZ ответил

Решите ЗАПОЛНЕНИЕ И ПЕЧАТЬ ДВУМЕРНОГО МАССИВА»
1 2 3 ⋯ n−2 n−1 n
2 1 2 ⋯ n−2 n−2 n−1
3 2 1 ⋯ n−4 n−3 n−2
⋮ ⋮ ⋮ ⋱ ⋮ ⋮ ⋮
n−1 n−2 n−3 ⋯ 2 1 2
n n−1 n−2 ⋯ 3 2 1