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

Question

Информатика

Лонгин

7 ноября, 21:38

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

+5

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