---

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

// Знаки препинания без ломающих кавычек
ЗнакиПрепинания = ".,!?:;-()""";

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

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

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

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

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

4. Нажми **`Ctrl + S`** (сохранить) и **`F5`**[span_4](start_span)[span_4](end_span)[span_5](start_span)[span_5](end_span).

---

### Вариант 2. Если набираешь вручную с клавиатуры

Если буфер обмена между браузером и 1С не работает, исправь прямо в своём тексте три места[span_6](start_span)[span_6](end_span):

1. **Строка 16:** у тебя сейчас напечатано `КоличествоСлов  КоличествоСлов + 1;` — пропущен знак равенства[span_7](start_span)[span_7](end_span). Допиши:
   ```bsl
   КоличествоСлов = КоличествоСлов + 1;