Помогите составить программу решения задачи в паскаль АВС. Дано целое числоN…

Question

84

Помогите составить программу решения задачи в паскаль АВС. Дано целое числоN (больше 0). Найти сумму N квадрат +(N+1) квадрат +(N+2) квадрат +… +(2 умножитьN) квадрат (целое число)

в избранное ссылка

Знаете ответ?

vitek42kem · Accepted Answer

82

vitek42kem

05 апреля 2023

Var x, i, n: integer; begin readln (n); for i: =0 to sqr (2*n) do x: =x+sqr (N+i); writeln (x); end. Наверное, Вы это имели в виду=)

комментировать

в избранное ссылка отблагодарить