Processing math: 0%

$\newcommand{\eps}{\varepsilon} \newcommand{\RR}{\mathbb{R}} \newcommand{\rd}{\operatorname{d}} \newcommand{\set}[1]{\left\{#1\right\}}$

Решаем задачи Абрамян на Паскале. For11

For11. Дано целое число $N$ ( $> 0$ ). Найти сумму $N^2 + (N + 1)^2 + (N + 2)^2 +…+ (2*N)^2$ (целое число).

Решение:

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 можно посмотреть здесь.

➤