1. структура алгоритма, команды которого выполняются по очереди один только раз, называется: a. циклической b. линейной c. ветвящейся d. основной e. 2. вместо многоточия вставить подходящий ответ следующего утверждения: «от любого исполнителя не требуется…» a. соблюдать последовательность действий алгоритма b. понимать смысл алгоритма c. умение точно выполнять команды d. выполнять алгоритмы 3. какой из документов является алгоритмом? a. правила техники безопасности b. инструкция по настройке каналов телевизора c. список класса d. стихотворение 4. алгоритм, в котором в зависимости от истинности условия выполняется одна или другая последовательность команд называется: a. линейным b. циклическим c. ветвящимся d. e. основной программой

1) b
2) b 
3) b
4) c

вот так вот

Оптический телеграф Оптический телеграф В 1792 году во Франции Клод Шапп создал систему передачи визуальной информации, которая получила название «Оптический телеграф» . В простейшем виде это была цепь типовых строений, с расположенными на кровле шестами с подвижными поперечинами, которая создавалась в пределах видимости одно от другого. Шесты с подвижными поперечинами — семафоры — управлялись при тросов специальными операторами изнутри строений. Шапп создал специальную таблицу кодов, где каждой букве алфавита соответствовала определенная фигура, образуемая семафором, в зависимости от положений поперечных брусьев относительно опорного шеста. Система Шаппа позволяла передавать сообщения на скорости два слова в минуту и быстро распространилась в Европе. В Швеции цепь станций оптического телеграфа действовала до 1880 года

Если число кратно 7 и 9 одновременно, то оно кратно и их произведению, т.е. 63.

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadInteger2('Введите границы интервала');
  if a>b then Swap(a,b);
  var m:=a mod 63;
  if m>0 then a:=a+63-m
  else if m<0 then a:=a-m;
  var s:=Range(a,b,63);
  Writeln('На интервале для чисел, кратных 7 и 9 одновременно:');
  Writeln('Количество ',s.Count,', сумма ',s.Sum,', произведение ',
      s.Aggregate(BigInteger(1),(p,q)->p*q))
end.

Пример
Введите границы интервала 613 2100
На интервале для чисел, кратных 7 и 9 одновременно:
Количество 24, сумма 32508, произведение 365675480699261550432828460140720056759879856012024400651039614959616000000