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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
