---

Юнит 17
Задача А
Функция ДеньНеделиСтрокой(ПроверяемаяДата) Экспорт
    Номер = ДеньНедели(ПроверяемаяДата);
    СписокДней = Новый Массив;
    СписокДней.Добавить("Понедельник");
    СписокДней.Добавить("Вторник");
    СписокДней.Добавить("Среда");
    СписокДней.Добавить("Четверг");
    СписокДней.Добавить("Пятница");
    СписокДней.Добавить("Суббота");
    СписокДней.Добавить("Воскресенье");
    
    Если Номер >= 1 И Номер <= 7 Тогда
        Возврат СписокДней[Номер - 1];
    Иначе
        Возврат "Невозможно определить";
    КонецЕсли;
КонецФункции

// Вызов:
Сообщить("Сегодня: " + Уроки.ДеньНеделиСтрокой(ТекущаяДата()));

Задача Б
ДатаРождения = '00010101';
Если ВвестиДату(ДатаРождения, "Введите дату вашего рождения:") Тогда
    Сегодня = НачалоДня(ТекущаяДата());
    ДРВТекущемГоду = Дата(Год(Сегодня), Месяц(ДатаРождения), День(ДатаРождения));
    
    Если Сегодня > ДРВТекущемГоду Тогда
        ОткрытьЗначение("Ваш день рождения в этом году уже прошел!");
    Иначе
        ОстатокСекунд = ДРВТекущемГоду - ТекущаяДата();
        ОткрытьЗначение("До вашего дня рождения в этом году осталось " + ОстатокСекунд + " секунд!");
    КонецЕсли;
КонецЕсли;

Тест 17
1 — 2
2 — 3
3 — 1
4 — 4
5 — 1
6 — 4
7 — 1
8 — 4
Юнит 18
Практическое задание
ГСЧ = Новый ГенераторСлучайныхЧисел(2014);
Итог = 0;

Для Шаг = 1 По 3 Цикл
    СлучЧисло  = ГСЧ.СлучайноеЧисло(1, 1000);
    ВКвадрате  = Pow(СлучЧисло, 5);
    ИзвлКорень = Sqrt(ВКвадрате);
    Разделили  = ИзвлКорень / 3;
    Округлили  = Окр(Разделили, 2, 0);
    Умножили   = Округлили * 0.25;
    
    Итог = Итог + Цел(Умножили);
КонецЦикла;

Сообщить(Итог); // Результат: 1602528

Тест 18
1 — 3
2 — 3
3 — 1
4 — 1
5 — 3
6 — 2
7 — 4