Для заданного N найти N!!= {1*3*5*…*N при нечетных N}
{2*4*6*…*N при четных N}
ПАСКАЛЬ

Ответ учителя по предмету Информатика

var

N,factorial,i: integer;

begin

factorial:=1;

write(‘Введите N: ‘);

readln(N);

if N mod 2 = 0 then begin

for i:= 1 to N do

if i mod 2 = 0 then factorial:=factorial*i;

end

else begin

for i:= 1 to N do

if i mod 2 = 1 then factorial:=factorial*i;

end;

writeln(‘N!! = ‘,factorial);

end.