ОТВЕТИТЬ НА ВО В чем различие между топологической и дистанционно-векторной маршрутизацией?
2. Опишите схему работы протокола RIP.
3. Опишите схему работы протокола OSPF.
4. Перечислите основные этапы установки маршрутизатора.
5. Опишите четыре этапа загрузки маршрутизатора.
6. Какие из указанных ниже протоколов работают по дистанционно векторному алгоритму и каковы их основные различия?
- RIP;
- IGRP;
- EIGRP;
- OSPF
7. Дайте характеристику классам протоколов маршрутизации.
8. Приведите классификацию протоколов маршрутизации на основе алгоритмов их работы.
9. Сделайте сравнение классовых и бесклассовых протоколов маршрутизации.
10. Сделайте сравнение протоколов маршрутизации внутреннего шлюза. 11. Опишите этапы настройки протокола маршрутизации RIP-2.

Var
   A,d,k,i:longint;
Begin
WriteLn('Введите четыре числа');
For i:= 1 to 4 do
    Begin
    Read(A);
    Write('Делители числа ',A,': ',A,', ');
    d:=A div 2+1;
    While d>0 do
       Begin
       if A mod d = 0 then
          Begin
          Write(d,', ');
          k:=k+1;
          End;
       d:=d-1;
       End;
    Write('кол-во его делителей: ',k);
    k:=1;
    WriteLn;
    End;
End.

Пример:
Введите четыре числа
987654321 32767 256 13
Делители числа 987654321: 987654321, 329218107, 109739369, 58097313, 19365771, 6455257, 3417489, 1139163, 379721, 2601, 867, 289, 153, 51, 17, 9, 3, 1, кол-во его делителей: 17
Делители числа 32767: 32767, 4681, 1057, 217, 151, 31, 7, 1, кол-во его делителей: 8
Делители числа 256: 256, 128, 64, 32, 16, 8, 4, 2, 1, кол-во его делителей: 9
Делители числа 13: 13, 1, кол-во его делителей: 2

Var
  i: integer;
  ar: array[1..4]of integer;

 procedure Divisor(x: integer);
 var
  d, c: integer;
 begin
  c := 1;
  if(x < 1) then exit;
  write(x, ' = ');
  if(x = 1) then begin writeln(1, ' Количество делителей:', 1);exit end; 
  d := 2;
  while x > 1 do
  begin
    if(x mod d = 0) then
     begin
      if(x div d <> 1) then write(d, ' * ')
       else write(d, '; ', ' Количество делителей:', c);
        x := x div d;
        c := c + 1;
     end
    else d := d + 1;
  end;
  writeln;
end;
  begin
  writeln('Введите четыре числа:');
  for i := 1 to 4 do read(ar[i]); 
  writeln;
  for i := 1 to 4 do Divisor(ar[i]);
end.