Предмет: Информатика,
автор: thepetrushka
Помогите пожалуйста с паскалем!) Дано число N. Hайдите значение x, x=(1*3*5*...*N)/(1=3=5=...+N) (N-нечетное число)
Ответы
Автор ответа:
0
// 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
// Внимание! Если программа не работает, обновите версию!
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
Интересные вопросы
Предмет: Английский язык,
автор: gdhdhdbbeh
Предмет: Английский язык,
автор: aleksandrmandryka93
Предмет: Физика,
автор: minebro70
Предмет: Математика,
автор: evita07