Написать программу для паскаль абц, но при не слишком сложных операций. "пусть n - натуральное число и пусть означает 1*3*5**n для нечетного n и 2*4**n для четного n. вычислить " - факториал. т.ею нужно ввести натурально число(например 5), а программа должна посчитать произведение нечетных чисел(1*3*5=15)
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