Решите
джеймс бонд занимается организацией каналов связи для двадцати секретных агентов ми-6. ему нужно, чтобы

между любыми двумя секретными агентами было не более одного прямого канала связи (прямой канал – то есть, без передачи информации через других агентов)
он мог сообщить информацию любому агенту, и по каналам связи эта информация добралась до всех остальных (не обязательно напрямую, можно через агентов)
если каких-то двух агентов рассекречивали, то без них и каналов связи, в которых эти два агента участвовали, все равно сохранялась возможность передачи информации между любыми двумя оставшимися агентами (хотя бы по цепочке через остальных).

какое наименьшее количество каналов связи нужно джеймсу бонду для организации такой системы?

никто, кроме двадцати агентов, в передаче информации не участвует. каналы, по которым информацию агентам передает сам бонд, не считаем.

1 задача:
//PascalABC.NET
var
s1,s2,s3:string;
m,i,i2:integer;
function _case(s:string):integer;
begin  if s='тысяча' then _case:=1000;  if s='девятьсот' then _case:=900;  if s='восемьсот' then _case:=800;  if s='семьсот' then _case:=700;  if s='шестьсот' then _case:=600;  if s='пятьсот' then _case:=500;  if s='четыреста' then _case:=400;  if s='триста' then _case:=300;  if s='двести' then _case:=200;  if s='сто' then _case:=100;  if s='девяносто' then _case:=90;  if s='восемьдесят' then _case:=80;  if s='семьдесят' then _case:=70;  if s='шестьдесят' then _case:=60;  if s='пятьдесят' then _case:=50;  if s='сорок' then _case:=40;  if s='тридцать' then _case:=30;  if s='двадцать' then _case:=20;  if s='девятнадцать' then _case:=19;  if s='восемнадцать' then _case:=18;  if s='семнадцать' then _case:=17;  if s='шестнадцать' then _case:=16;  if s='пятнадцать' then _case:=15;  if s='четырнадцать' then _case:=14;  if s='тринадцать' then _case:=13;  if s='двенадцать' then _case:=12;  if s='одиннадцать' then _case:=11;  if s='десять' then _case:=10;  if s='девять' then _case:=9;  if s='восемь' then _case:=8;  if s='семь' then _case:=7;  if s='шесть' then _case:=6;  if s='пять' then _case:=5;  if s='четыре' then _case:=4;  if s='три' then _case:=3;  if s='два' then _case:=2;  if s='один' then _case:=1;  
end;
begin
Readln(s1);
i:=Pos(' ',s1);
i2:=Pos(' ',s1,i+1);
if i>0 then   if i2>0 then     begin    s2:=copy(s1,i+1,i2-i-1);    s3:=copy(s1,i2+1,length(s1)-i2);    end    else     begin    s2:=copy(s1,i+1,length(s1)-i);    s3:='';    end;
delete(s1,i,length(s1));
Writeln(_case(s1)+_case(s2)+_case(s3));
end.

# python 3.6.2

while True:

reelLength = int(input('Введите длину мотка (от 1 до 100): '))

if reelLength <= 100 and reelLength >= 1:

 break

else:

 print('Неверный ввод!')

reelNum = 0

while True:

segmentLength = int(input('Введите длину куска (от 1 до 100): '))

if segmentLength <= 100 and segmentLength >= 1:

 if segmentLength < reelLength:

  reelLength -= segmentLength

  reelNum += 1

  continue

 if segmentLength == reelLength:

  reelLength -= segmentLength

  reelNum += 1

 print(f'Количество кусков: {reelNum:d}; Длина остатка: {reelLength:d}')

 break

else:

 print('Неверный ввод!')