Найти сумму 1*4+2*4+3*4+4*4+5*4+6*4+..n*4 в паскале. очень срочно нужно пожалуйста

Question

Найти сумму 1*4+2*4+3*4+4*4+5*4+6*4+..n*4 в паскале. очень срочно нужно пожалуйста

Answer 1

Var i,n,sum:integer;
begin
sum:= 0;
ReadLn(n);
for i:= 1 to n do
 sum := sum + i*4;
WriteLn(sum);
end.

Или

var n,sum:integer;
begin
sum:= 0;
ReadLn(n);
Sum = ((1 + n)/2 * n) * 4;
WriteLn(sum);
end.

Comments

А еще можно было просто найти сумму i и результат на 4 умножить.

---

А дальше вспоминаем формулу арифметической прогрессии - и цикл вообще не нужен

---

ага. Sum = ((1 + n)/2 * n) * 4; и всё