---

Текст = "";
ВвестиСтроку(Текст, "Введите текст");

ЗнакиПрепинания = "`~!@#$%^&*()-=_+\|[]{};':"",.<>/?";

КоличествоСлов = 0;
КоличествоПробелов = 0;
КоличествоЗнаковПрепинания = 0;
МыВСлове = Ложь;

ДлинаТекста = СтрДлина(Текст);

Для А = 1 По ДлинаТекста Цикл
	Символ = Сред(Текст, А, 1);
	
	Если Символ = " " Или Найти(ЗнакиПрепинания, Символ) > 0 Тогда
		Если МыВСлове Тогда
			КоличествоСлов = КоличествоСлов + 1;
		КонецЕсли;
		
		МыВСлове = Ложь;
		
		Если Символ = " " Тогда
			КоличествоПробелов = КоличествоПробелов + 1;
		Иначе
			КоличествоЗнаковПрепинания = КоличествоЗнаковПрепинания + 1;
		КонецЕсли;
	Иначе
		МыВСлове = Истина;
	КонецЕсли;
КонецЦикла;

Если МыВСлове = Истина Тогда
	КоличествоСлов = КоличествоСлов + 1;
КонецЕсли;

Сообщить("Количество слов: " + КоличествоСлов);
Сообщить("Количество пробелов: " + КоличествоПробелов);
Сообщить("Количество знаков препинания: " + КоличествоЗнаковПрепинания);
```[span_3](start_span)[span_3](end_span)

После вставки нажми **`Ctrl + S`** (сохранить) и запусти через **`F5`**[span_4](start_span)[span_4](end_span)[span_5](start_span)[span_5](end_span). При запросе введи проверочный текст `Доброе утро, страна!` — программа выведет `3 слова, 2 пробела и 2 знака препинания`[span_6](start_span)[span_6](end_span).