Дано натуральное число n. Вычислить через while и for

S=1∙2+2∙3+3∙4+⋯+n∙ (n+1)

Question

Информатика

Луиджа

3 мая, 08:02

Дано натуральное число n. Вычислить через while и for

S=1∙2+2∙3+3∙4+⋯+n∙ (n+1)

+5

Ответы (1)

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

Шахнур · Answer 1

var n, I, s, sum:integer;

begin

writeln ('ввести огрничение n') ;

readln (n) ;

sum:=0;

for i:=1 to n do begin

s:=i * (i+1) ;

sum:=sum+s;

writeln (sum) ;

end;

readln

end.

Дано натуральное число n. Вычислить через while и forS=1∙2+2∙3+3∙4+⋯+n∙ (n+1)

Дано натуральное число n. Вычислить через while и for

S=1∙2+2∙3+3∙4+⋯+n∙ (n+1)