---

Строка = "";
ВвестиСтроку(Строка, "Введите ваш возраст (например: Мне 25 лет)");

Цифры = "0123456789";
Возраст = "";
ДлинаСтроки = СтрДлина(Строка);

Для А = 1 По ДлинаСтроки Цикл
	Символ = Сред(Строка, А, 1);
	Если Найти(Цифры, Символ) > 0 Тогда
		Возраст = Возраст + Символ;
	КонецЕсли;
КонецЦикла;

Если Возраст <> "" Тогда
	ОткрытьЗначение("Возраст: " + Возраст);
Иначе
	ОткрытьЗначение("Число возраста не найдено!");
КонецЕсли;
```[span_4](start_span)[span_4](end_span)[span_5](start_span)[span_5](end_span)

**📷 Что делать и скринить:**
1. Нажми **`F5`**[span_6](start_span)[span_6](end_span).
2. В появившемся окне ввода напиши, например, `Мой возраст 25 лет` (или `Мне 19`)[span_7](start_span)[span_7](end_span).
3. Заскриншоть всплывающее окно с числом: **`Возраст: 25`**[span_8](start_span)[span_8](end_span).

---

### Упражнение №16. Определение цвета светофора

Программа запрашивает число секунд с начала часа, а затем во встроенном цикле перебирает интервалы времени (3 минуты зелёный, 1 минута жёлтый, 2 минуты красный), пока не найдёт текущий сигнал[span_9](start_span)[span_9](end_span).

**Код для `Модуля приложения`:**[span_10](start_span)[span_10](end_span)

```bsl
КоличествоСекунд = 0;
ВвестиЧисло(КоличествоСекунд, "Сколько секунд прошло с начала часа?");

Промежутки = Новый Массив(3, 2);
Промежутки[0][0] = 3 * 60; Промежутки[0][1] = "Зелёный";
Промежутки[1][0] = 60;     Промежутки[1][1] = "Жёлтый";
Промежутки[2][0] = 2 * 60; Промежутки[2][1] = "Красный";

Время = 0;
А = 0;

Пока Истина Цикл
	Время = Время + Промежутки[А][0];
	Если КоличествоСекунд <= Время Тогда
		ОткрытьЗначение("Цвет светофора на " + КоличествоСекунд + " секунде равен " + Промежутки[А][1]);
		Прервать;
	КонецЕсли;
	
	А = А + 1;
	Если А > Промежутки.Количество() - 1 Тогда
		А = 0;
	КонецЕсли;
КонецЦикла;
```[span_11](start_span)[span_11](end_span)[span_12](start_span)[span_12](end_span)

**📷 Что делать и скринить:**
1. Нажми **`F5`**[span_13](start_span)[span_13](end_span).
2. Введи любое число секунд, например `200`[span_14](start_span)[span_14](end_span).
3. Заскриншоть окно с ответом: **`Цвет светофора на 200 секунде равен Жёлтый`** *(так как первые 180 секунд был зелёный, а с 181 по 240 секунду горит жёлтый)*[span_15](start_span)[span_15](end_span).

---

### Упражнение №17. Сокращение ФИО

Строка преобразуется в многострочную заменой пробелов на `Символы.ПС`, откуда легко извлекаются фамилия и первые буквы имени и отчества[span_16](start_span)[span_16](end_span).

**Код для `Модуля приложения`:**[span_17](start_span)[span_17](end_span)

```bsl
Строка = "";
ВвестиСтроку(Строка, "Введите ФИО (например: Петров Иван Сидорович)");

// Превращаем строку в многострочную, заменяя пробелы
МногострочнаяСтрока = СтрЗаменить(Строка, " ", Символы.ПС);

Фамилия = СтрПолучитьСтроку(МногострочнаяСтрока, 1);
Имя = СтрПолучитьСтроку(МногострочнаяСтрока, 2);
Отчество = СтрПолучитьСтроку(МногострочнаяСтрока, 3);

СокращенноеФИО = Фамилия + " " + Лев(Имя, 1) + "." + Лев(Отчество, 1) + ".";

ОткрытьЗначение("Результат: " + СокращенноеФИО);
```[span_18](start_span)[span_18](end_span)[span_19](start_span)[span_19](end_span)

**📷 Что делать и скринить:**
1. Нажми **`F5`**[span_20](start_span)[span_20](end_span).
2. Введи строку: `Петров Иван Сидорович`[span_21](start_span)[span_21](end_span).
3. Заскриншоть всплывающее окно с результатом: **`Результат: Петров И.С.`**[span_22](start_span)[span_22](end_span)