2. Дано натуральное n. Вычислить: 1/1^1 + 1/2^2 + ... + 1/n^n.

Question

Информатика

Давид

11 апреля, 22:09

2. Дано натуральное n. Вычислить: 1/1^1 + 1/2^2 + ... + 1/n^n.

+3

Ответы (1)

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

Амелфа · Answer 1

Var n, i, j:integer; st, s:real;

begin

readln (n) ;

s:=0;

for i:=1 to n do

begin

st:=1;

for j:=1 to i do st:=st*i;

s:=s+1/st;

end;

writeln ('s = ', s:6:4) ;

end.

Пример:

3

s = 1.2870