4)вывести на экране : 2, 4, 6..22. 5) вывести на экране сумму всех чисел от 5 до 20. 6) вычислить произведение чётных чисел от 8 до 18. 7) вывести на экране 10 15 20 65

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.

Объяснение:

Двоичный поиск эффективно определяет положение искомого элемента (или его отсутствие) в упорядоченном наборе.

Это один из базовых и важных алгоритмов.

Если склады от №1 до №15 заполнены, то:

- когда плотник открывает склад №16, он оказывается пуст (1-ая открытая дверь);

- тогда плотник решает искать между №1 и №15, открывает склад №8, он оказывается заполнен (2-ая открытая дверь);

- теперь он ищет между №9 и №15, открывает склад №12 — он заполнен (3-ья открытая дверь);

- далее он ищет между №13 и №15, открывает склад №14 - он заполнен (4-ая открытая дверь);

- наконец он открывает последний склад № 15 (5-ая дверь).

Правильный ответ: 5

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
  A: РЯД 10 ИЗ ЦЕЛ;
  сч, мин, имин: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(A)-1 ВЫП
    A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 49)) + 1;
    Вывод.ЧЦел("%d ", A[сч], 0, 0, 0)
  КОН;
  мин := A[0];
  имин := 0;
  ОТ сч := 1 ДО РАЗМЕР(A) - 1 ВЫП
    ЕСЛИ A[сч] < мин ТО мин := A[сч]; имин := сч КОН
  КОН;
  сч := A[РАЗМЕР(A) - 1];
  A[РАЗМЕР(A) - 1] := A[имин];
  A[имин] := сч;
  Вывод.Цепь("^");
  ОТ сч := 0 ДО РАЗМЕР(A)-1 ВЫП
    Вывод.ЧЦел("%d ", A[сч], 0, 0, 0)
  КОН

КОН Задание.