Учеба и наука

Решено

цикл - вопрос №688050

помогите решить задачу по программированию дано натуральное число N. Вычислить произведение первых N-сомножителей.

P=2/3*4/5*6/7*… *2N/2N+1

июль 13, 2013 г.

Сообщить о нарушении

  • Всего ответов: 1

  • Валентина - аватарка

    Валентина
    3-й в

    program pr;

    uses crt;

    var p:real; i:integer;N:integer;

    begin

    clrscr;

    writeln('vvedite N');

    readln(N); 

    p:=1;i:=1;

    while i<=N do

    begin

      p:=p*2*i/(2*i+1);

      i:=i+1;

    end; 

    writeln('p=',p:8:4); 

    readln;

    end.

    Буду благодарна, если отметите 

    июль 13, 2013 г.
    Ответ понравился автору
    Лучший ответ по мнению автора