Помогите пожалуйста написать программу для паскаль абц, но при помощи не слишком сложных операций. "Пусть n - натуральное число и пусть n!! означает 1*3*5*...*n для нечетного n и 2*4*...*n для четного n. Вычислить n!!" n!! - фа...
Помогите пожалуйста написать программу для паскаль абц, но при помощи не слишком сложных операций. "Пусть n - натуральное число и пусть n!! означает 1*3*5*...*n для нечетного n и 2*4*...*n для четного n.
Вычислить n!!" n!! - факториал. Т.ею нужно ввести натурально число(например 5), а программа должна посчитать произведение нечетных чисел(1*3*5=15)
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var n,i: integer;
p:BigInteger;
begin
p:=1;
write('Введите N ');readln(n);
if n mod 2<>0 then i:=1 else i:=2;
while i<=n do begin
p:=P*i;
i:=i+2;
end;
writeln(p);
end.
Тест №1
Введите N 6
48
Тест №2
Введите N 5
15
Не нашли ответ?
Похожие вопросы