program M; var M,i,a,n:integer; begin M:=1; a:=1; write('n='); readln(n); for i:=1 to n do begin M:=M*a/(a+1); a:=a+2; end; writeln('Добуток M=',M); end.
Get involved!
Here you can only see a limited number of comments. On СЕО Форум Вебмастеров you see all comments and all functions are available to you. To the thread