Написать программу на Python ФакториалПо данному целому неотрицательному n вычислите значение n!.Входные данныеВводится число n (0≤n≤15Выходные данныеВыведите ответ на задачу.ПримерыВвод / Вывод3 / 6

program Hello;

var

   a : integer;

   b : integer;

   i : integer;

begin

readln(a);

b := 1;

for i := 1 to a do

   b := b * i;

writeln(b);

end.

const

 N = 10;

var

 B: array[1..N+1] of integer;

 Sum, i, first_even_i: integer;

Begin

 WriteLn('Введите массив: ');

 For i := 1 to N do

   Read(B[i]);

 

 For i := 1 to N-1 do

   if (B[i+1] mod 2 <> 0) then

     B[i] := 0;

 

 For i := 1 to N do

   if (B[i] mod 2 = 0) then

   begin

     first_even_i := i;

     break;

   end;

 

 For i := N+1 downto first_even_i + 1 do

   B[i] := B[i-1];

 

 B[first_even_i] := 0;

 

 WriteLn('Среднее арифметическое всех элементов: ', Sum / (N + 1));

 WriteLn('Получившийся массив: ', B);

End.

const

 N = 5;

var

 B: array[1..N] of integer;

 Sum, Min, Min_i, Max, i: integer;

Begin

 WriteLn('Введите массив: ');

 For i := 1 to N do

   Read(B[i]);

 

 Sum := 0;

 Min := B[1];

 Max := B[1];

 

 For i := 1 to N do

 Begin

   if (B[i] mod 2 <> 0) then

     Sum := Sum + B[i];

   

   if (B[i] > Max) then

     Max := B[i];

   

   if (B[i] <= Min) then

   begin

     Min := B[i];

     Min_i := i;

   end;

 End;

 

 For i := 1 to Min_i - 1 do

   B[i] := (Min + Max) div 2;

 

 For i := N downto 1 do

   if ((B[i] mod 4 = 0) and (i < N)) then

   begin

     B[i+1] := 0;

     break;

   end;

 

 WriteLn('Сумма нечётных элементов: ', Sum);

 WriteLn('Получившийся массив: ', B);

End.