profile
Опубликовано 5 лет назад по предмету Информатика от eldaf

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

  1. Ответ
    Ответ дан iolandavalerypad353
    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.
Самые новые вопросы