Условие: Дано натуральное число N. Вычислить произведение первых N сомножителей: (2/1)*(2/3)*(4/3)*(4/5)*...
Технические условия: Стандартные.
Примеры входных и выходных файлов: Отсутствуют.
Решение: Идея решения. В цикле прибавляем 2 поочередно к числителю (переменная Х) или к знаменателю (переменная Y), накапливая произведение (переменная Res).
var res:real; i,n,x,y, flag: integer; begin write('n=...'); readln(n); res:=1; flag:=0; x:=2; y:=1; for i:=1 to n do begin res:=res*x/y; if flag=0 then y:=y+2 else x:=x+2; flag:=1-flag; end; writeln(res); end.
