Вычислить S=1/33+1/53+1/73 + ... + 1 / (2n+1) 3 в Паскале

Question

Информатика

Наталий

25 ноября, 02:11

Вычислить S=1/33+1/53+1/73 + ... + 1 / (2n+1) 3 в Паскале

+4

Ответы (1)

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

Агафоника · Answer 1

Var

S, tmp: real;

n, i: integer;

begin

write ('Введите n:') ;

readln (n) ;

for i : = 1 to n do

begin

tmp : = 1 / ((2 * i + 1) * 3) ;

S : = S + tmp;

end;

writeln (S:8:10) ;

readln;

end.