Наталья Суворова
Юрий Сапрыкин
var n, i, s: integer;
begin
readln(n); s:=0;
for i:=n to 2*n do
s:=s+i*i;
writeln(s);
end.
ОП
Олег Панк
var n:longint;
begin
readln(n); writeln((2*n*(2*n+1)*(4*n+1)-(n-1)*n*(2*n-1))div 6); readln
end.
Похожие вопросы