Untitled

10. . Последовательность с параметрами

Определите количество пар натуральных чисел x и y, для которых последовательность zⁿ=(xⁿ+yⁿ)/20ⁿ не является возрастающей.

<0твет: 496

Рђешение:

s = 0; For[x = 1, x <= 200, x++, For[y = 1, y <= 200, y++, z = {}; For[n = 1, n <= 20, n++, z = AppendTo[z, (x^n + y^n)/20^n]]; dd = Differences[z]; If[Select[dd, # <= 0 &] != {}, s++]]]; Print[s];