Найти сумму 1*4+2*4+3*4+4*4+5*4+6*4+..n*4 в паскале. очень срочно нужно пожалуйста
Найти сумму 1*4+2*4+3*4+4*4+5*4+6*4+..n*4 в паскале. очень срочно нужно пожалуйста
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы