Задание:
Дано натуральное число N. Вычислить сумму ряда: S=1! +2! +3! +… +N! (N>1) на паскале.
Решение:
program a1; var i,n: integer; s: real; begin readln (n); s: =0; for i: =1 to n do s: =s+i/ (i+1); writeln (s: 0:5) end.
Знаете другой ответ?
Дано натуральное число N. Вычислить сумму ряда: S=1! +2! +3! +… +N! (N>1) на паскале.
program a1; var i,n: integer; s: real; begin readln (n); s: =0; for i: =1 to n do s: =s+i/ (i+1); writeln (s: 0:5) end.
Знаете другой ответ?