Помогите пожалуйста с паскалем!) Дано число N. Hайдите значение x, x=(1*3*5*...*N)/(1=3=5=...+N) (N-нечетное число)

Помогите пожалуйста с паскалем!) Дано число N. Hайдите значение x, x=(1*3*5*...*N)/(1=3=5=...+N) (N-нечетное число)
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016 // Внимание! Если программа не работает, обновите версию! begin   var r:=Range(1,ReadInteger('n='),2);   var p:=r.Aggregate(BigInteger(1),(i,j)->i*j);   var s:=r.Sum;   Writeln('x=',p,'/',s,'=',real(p)/s) end. Пример n= 39 x=319830986772877770815625/400=7.99577466932194E+20
Не нашли ответ?
Ответить на вопрос
Похожие вопросы