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

Question

Информатика

Всеволодушка

14 декабря, 23:22

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

+2

Ответы (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.