N - натуральное число. Вычислить (Pascal). Использовать цикл в цикле.

Question

Информатика

Тамарка

14 октября, 19:24

N - натуральное число. Вычислить (Pascal). Использовать цикл в цикле.

+5

Ответы (1)

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

Бронислав · Answer 1

Var

i, j, n, sum, mult: integer;

begin

read (n) ;

for i : = 1 to n do

begin

mult : = 1;

for j : = 1 to i do

mult : = mult * i;

sum : = sum + mult;

end;

writeln (sum) ;

end.