For11. Дано целое число $$N$$ ($$> 0$$). Найти сумму $$N^2 + (N + 1)^2 + (N + 2)^2 +…+ (2*N)^2$$ (целое число).
Решение:
|
1 2 3 4 5 6 7 8 9 10 |
program For11; var N, Rez,i :Integer; begin Write('Введите N: '); Readln(N); rez:=0; For i:=0 to N do Rez:=Rez+sqr(N+i); Writeln(Rez); end. |
Другие задачи из раздела For можно посмотреть здесь.
Комментарии: