Алгоритм управления Чертёжником, в результате которого на координатной плоскости будет нарисован квадрат, длина стороны которого равна 6 единицам.

Алгоритм:

сместиться в точку (1,1)
опустить перо
сместиться на вектор (..,6)
сместиться на вектор (...,0)
сместиться на вектор (0,..)
сместиться на вектор очень очень вместо "..."в скобках надо вставить цифры

Для решения этой задачи отбросим лишнее и оставим только данные нам факты:
1.Юре не хватает времени на туризм -> Юра не турист.
2. Врач сказал,что разделает увлечение сестры Юры -> Врач - турист.
3. У двух друзей нет нет букв из их имени ни в профессии, ни в увлечении.

Начнем с Тимура.Буквы из его имени есть во всех профессиях,значит к факту №3 он не относится.

Возьмем Юру. Если учитывать факт №3, то из увлечений ему подходит только бег, а из профессий - физик. Влад же у нас получается ,следуя факту №3 , Юрист, увлечение которого - регби. Тогда Тимур у нас является Врачом, который увлекается туризмом.
Решение верное,так как ни один из фактов не нарушен.

ответ: Влад - Юрист - Регби
            Тимур - Врач - Туризм
            Юра - Физик - Бег

В присоединенном файле работающая программа. Не забудьте установить уровень безопасности макросов Excel в "средний". сам макрос - на листе рабочей книги, вот его текст:
Option Explicit

Sub CommandButton1_Click()
    Dim n As Integer, i As Integer, j As Integer
    Dim Sr As Single
    Dim Phone As String
    'Динамические массивы - неизвестно кол-во подразделений
    Dim nPhone() As String, nDep() As Integer
    i = 2
    Do While Len(Cells(i, 1).Value) <> 0
        i = i + 1
    Loop
    n = i - 2 'Количество сотрудников определено по первой пустой ячейке в 1й колонке
    ReDim nPhone(1 To n), nDep(1 To n) 'Определили массивы необходимой размерности
    For i = 1 To n
        nPhone(i) = Cells(i + 1, 2).Value
        nDep(i) = 0
    Next i
    BubbleSort nPhone
    Phone = "***-**-**" ' Можно взять что угодно, кроме реального номера
    j = 0
    For i = 1 To n
        If nPhone(i) = Phone Then
            nDep(j) = nDep(j) + 1
        Else
            Phone = nPhone(i)
            j = j + 1
            nDep(j) = 1
        End If
    Next i
    Sr = 0
    For i = 1 To j
        Sr = Sr + nDep(i)
    Next i
    Sr = Sr / j
    MsgBox "Среднее количество сотрудников в отделе равно" & Str(Sr), vbInformation
End Sub

Public Sub BubbleSort(Arr As Variant)
    ' Пузырьковая сортировка одномерного массива
    Dim lSorted As Boolean, nI As Long, nJ As Long, nAll As Long, vTemp As Variant
    nAll = UBound(Arr)
    nI = LBound(Arr) - 1
    Do While (nI < nAll) And Not lSorted
        lSorted = True
        nI = nI + 1
        For nJ = 1 To nAll - nI
            If Arr(nJ) > Arr(nJ + 1) Then
                vTemp = Arr(nJ): Arr(nJ) = Arr(nJ + 1): Arr(nJ + 1) = vTemp: lSorted = False
            End If
        Next nJ
    Loop
End Sub