Вычислить 12+23 + ... + n (n+1). Паскаль цикл While.

Question

Информатика

Никандр

28 октября, 22:09

Вычислить 12+23 + ... + n (n+1). Паскаль цикл While.

+4

Ответы (1)

Знаете ответ на вопрос?

Поля · Answer 1

Program n1;

var n, i: integer;

sum: real;

begin

i:=0;

sum:=0;

readln (n) ;

while i<=n do

begin

sum:=sum+i * (i+1) ;

i:=i+1;

end;

write (sum) ;

end.

Вычислить 1*2+2*3 + ... + n (n+1). Паскаль цикл While.

Вычислить 12+23 + ... + n (n+1). Паскаль цикл While.