P = (1-1/2) * (1-1/4) * (1-1/6) ... (1-1/2n)

помогите с помощью цикла (while, repeat)

Question

Информатика

Апис

15 июля, 21:41

P = (1-1/2) * (1-1/4) * (1-1/6) ... (1-1/2n)

помогите с помощью цикла (while, repeat)

+1

Ответы (1)

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

Анварбану · Answer 1

Begin

var n : = ReadlnInteger ('n = ') ;

var p : = 1.0;

var i : = 1;

while (i < = n) do begin

p * = (1 - 1 / (2 * i)) ;

i + = 1;

end;

p. Println;

end.

P = (1-1/2) * (1-1/4) * (1-1/6) ... (1-1/2n)помогите с помощью цикла (while, repeat)

P = (1-1/2) * (1-1/4) * (1-1/6) ... (1-1/2n)

помогите с помощью цикла (while, repeat)