Напиши программу на языке пасккля

Конечно! Вот пример программы на языке Паскаль, которая решает задачу: подсчёт количества предложений в строке, каждое из которых заканчивается точкой, восклицательным или вопросительным знаком. ```pascal program CountSentences; uses crt; var line: string; i, count: integer; ch: char; begin clrscr; writeln('Введите строку:'); readln(line); count := 0; for i := 1 to length(line) do begin ch := line[i]; if (ch = '.') or (ch = '!') or (ch = '?') then Inc(count); end; writeln('Количество предложений в строке: ', count); readln; end. ``` **Объяснение программы:** - Мы запрашиваем ввод строки у пользователя. - Объявляем переменные `line` (строка), `i` (счётчик цикла), `count` (подсчёт предложений) и `ch` (текущий символ). - Используем цикл `for`, чтобы пройти по каждому символу строки. - Если текущий символ — точка, восклицательный или вопросительный знак, увеличиваем счетчик `count`. - В конце выводим количество предложений. Если нужно более сложное решение, например, учитывать наличие пробелов после знаков или исключать случаи, когда знак внутри слова, сообщите!