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

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

Question

Информатика

Архимед

27 мая, 18:00

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

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

+5

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