1.Разделите все устройства по функциям и заполните таблицу.

1)  1

2) 4 наверное

3) г

4) б

5) б

6) а

7) в,а,б,г

8) Чтобы повторить заголовки на каждом новом листе, выделите соответствующую строку. Затем перейдите на вкладку «Работа с таблицами» – «Макет» и в группе «Данные» нажмите на кнопку «Повторить строки заголовков». После этого, повторение названий столбцов будет на каждом новом листе.

9) Поместите курсор в то место, куда вы хотите добавить оглавление.

Выберите Ссылки > Оглавление. и выберите Автоматический стиль.

Если вы вносите в документ изменения, которые влияют на оглавление, обновите оглавление, щелкнув правой кнопкой мыши оглавление и выбрав команду Обновить поле.

4)
Var    i,sum: integer;
Begin
i:=2;
    while (i<=22) do
         begin
        write(i,' ');
        i:=i+2
        end;
End.

5)
Var    i,sum: integer;
Begin
i:=5;
    while (i<=20) do
         begin
        sum:=sum+i;
        i:=i+1
        end;
  Writeln('Сумма чисел от 5 до 20 = ',sum)
End.

6)
Var    i,pr: integer;
Begin
i:=8;
pr:=1;
    while (i<=18) do
         begin
        pr:=pr*i;
        i:=i+2
        end;
  Writeln('Произведение четных чисел от 8 до 18 = ',pr)
End.

7)
Var    i: integer;
Begin
i:=10;
    while (i<=65) do
         begin
        Write(i,' ');
        i:=i+5
        end;
End.