Определите значение переменной f после выполнения фрагмента алгоритма. f: =1 нц для i от 1 до 5 f: =f*i кц распишите решение, , никак не возьму в толк, что да как.

Можно проанализировать работу цикла по шагам (берутся при расчете всегда текущие, т.е. последние значения переменных). Цикл с параметром i выполняется 5 раз:
1 шаг. i=1, f=f*i=1*1=1
2 шаг. i=2, f=1*2=2
3 шаг. i=3, f=2*3=6
4 шаг. i=4, f=6*4=24
5 шаг. i=5, f=24*5=120
В результате вычисляется то, что называется факториалом числа (обозначается знаком !), в данном случае 5!

Задача 1 (скриншот 1)

------------------------------------------------------------------------------

import random

def gen_list(n):

for i in range(n):

 yield random.randint(-20, 35)

def summ_less(hight_border, array):

result = 0

for item in array:

 if item < hight_border:

  result += item  

return result  

def count_high(low_border, array):

result = 0

for item in array:

 if item > low_border:

  result += 1

return result

def main():

newlist = [int(i) for i in gen_list(15)]

print(summ_less(11, newlist))

print(count_high(25 ,newlist))

if __name__ == '__main__':

main()

------------------------------------------------------------------------------

Задача 2 (скриншот 2)

------------------------------------------------------------------------------

import random

def gen_list(n):

for i in range(n):

 yield random.randint(-10, 10)

def mulptiply_multiples(divider, array):

result = 1

for item in array:

 if item % divider == 0 and item != 0:

  result *= item

return result

def main():

newlist = [int(i) for i in gen_list(15)]

print(newlist)

print(mulptiply_multiples(3, newlist))

if __name__ == '__main__':

main()

------------------------------------------------------------------------------

Объяснение:

Cайт ломает Python-код, ниже приложены скриншоты исходников для восстановления кода. Если вам очень нужно именно скопировать и не париться, я могу залить обе задачи на pastebin.com и скинуть в комментарии к ответу ссылку

function Nod(a, b: integer): integer;

begin

 while b <> 0 do

 begin

   a := a mod b;

   Swap(a, b)

 end;

 Result := a

end;

procedure ArrIn(var a: array of integer) := a := ReadArrInteger(a.Length);

procedure ArrOut(a: array of integer) := a.Println;

function NodArr(a: array of integer): integer;

begin

 var n := a.Length;

 if n = 1 then

   Result := a[0]

 else

 begin

   Result := Nod(a[0], a[1]);

   for var i := 2 to n - 1 do

     Result := Nod(a[i], Result);

 end;

end;

begin

 var n := ReadInteger('Число элементов в массиве 1:');

 var a := new integer[n];

 Writeln('Введите элементы массива 1');

 ArrIn(a);

 Writeln('введены элементы:');

 ArrOut(a);

 Writeln('НОД элементов равен ', NodArr(a));

 n := ReadInteger('Число элементов в массиве 2:');

 SetLength(a, n);

 Writeln('Введите элементы массива 2');

 ArrIn(a);

 Writeln('введены элементы:');

 ArrOut(a);

 Writeln('НОД элементов равен ', NodArr(a));

 n := ReadInteger('Число элементов в массиве 3:');

 SetLength(a, n);

 Writeln('Введите элементы массива 3');

 ArrIn(a);

 Writeln('введены элементы:');

 ArrOut(a);

 Writeln('НОД элементов равен ', NodArr(a));

end.