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

Question

Информатика

Адель

27 октября, 09:16

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

+1

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