Напишите программу для s = (1) + (1+2) + (1+2+3) + ... + (1+2+3 + ... + n)

Question

Есения Лебедева

Информатика

18 октября, 22:32

Напишите программу для s = (1) + (1+2) + (1+2+3) + ... + (1+2+3 + ... + n)

+1

Ответы (1)

Знаешь ответ на этот вопрос?

Яна Егорова · Answer 1

var s, j, k:longint; function f (n:byte) : longint; var f1:longint; i:integer; begin if n<1 then f1:=1 else begin f1:=1; for i:=1 to n do f1:=f1*i; end; f:=f1; end; end; begin s:=0; readln (k); for j:=1 to k do s:=s+f (j); writeln (s); readln; end.