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

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

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

Лучший ответ по мнению автора

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.07.13
Лучший ответ по мнению автора

Еva

от 100 p.
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store