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

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

Question

Информатика

Юния

21 апреля, 16:10

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

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

+4

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