Загрузить табличный процессор excel. на лист 1 книги создать: • арифметическую прогрессию с 10-ю элементами: 7, 15…….. • арифметическую прогрессию с 10-ю элементами: -6, -2…….. • прогрессию с 10-ю элементами : 5, -20……. • прогрессию с 10-ю элементами : -2, 10……. • установить границы на таблицах.

1) и 2):

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

b = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13]

c = []

for i in range(len(a)):

  for j in range(len(b)):

      if a[i] == b[j]:

          c.append(a[i])

print(list(set(sorted(c  # сортировка по возрастанию

print(list(set(sorted(c, reverse=True  # сортировка по убыванию

3):

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

for elem in a:

  if elem < 5:

      print(elem,end = ' ')

4)

a = []

for i in range(102):

  if i == 100:

      a.append(1)

  elif i == 101:

      a.append(1)

  else:

      a.append(0)

print(a)

5)

a = []  

for i in range(90):

  if i % 2 == 0:

      a.append(i)

print(a)

print(len(a))

Объяснение:

НА ВЕРНОЕ ВОТ ТАК

program raf105;

const

  n = 4;

  m = 3;

var

  a: array[1..n,1..m] of real;

  b: array[1..n] of byte;

  x: boolean;

begin

  for var i: =1 to n do

  begin

    writeln('заполните столбец ',i,' числами по очереди');

    for var j: =1 to m do

      readln(a[i,j]);

  end;

 

for var i: =1 to n do

  begin

    x: = true;

    for var j: =1 to m-1 do

      if not(a[i,j] < a[i,j+1]) and x then x: = false;

    if x then b[i]: = 1

      else b[i]: = 0;

  end;

 

  writeln;

  writeln('массив b: ',b);

 

end.

pascalabc