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

а можно в столбик решение?

varN,factorial,i: integer;beginfactorial:=1;write('Введите N: ');readln(N);if N mod 2 = 0 then beginfor i:= 1 to N doif i mod 2 = 0 then factorial:=factorial*i;endelse beginfor i:= 1 to N doif i mod 2 = 1 then factorial:=factorial*i;end;writeln('N!! = ',factorial);end.