с информатикой var a, answer: integer; begin answer:=0; readln(a); while a<>0 do begin if (a mod 8 = 0) and (a > 9) and (a < 100) then answer := answer + а; readln(a); end; writeln(answer) end.

# Задание 5 Без использование ген списка

list = [-23, -15, -10, -4, 3, 7, 12, 35, 47, 88]

list2 = []

for i in list:

   if i < 0:

       list2.append(i)

print(list2)

# Задание 5 С использованием ген списка

list = []

list2 = []

for i in range(-50,50, 10):

   list.append(i)

   if i < 0:

       list2.append(i)

print(list2)

# Заданиче 6 без использование ген списка

a = [1, 2, 3, 5, 8, 13, 21, 34, 55]

b = []

k = int(input('Введите индекс k (от 0 до 9): '))

for i in a:

   if i != a[k]:

       b.append(i)

print(b)

# Заданиче 6 c использованием ген списка

a = []

b = []

k = int(input('Введите индекс k (от 0 до 9): '))

for i in range(10):

   a.append(i)

print(a)

for x in a:

   if x != a[k]:

       b.append(x)

print(b)

Объяснение: