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

Конечно! Вот пример программы на языке Паскаль, которая решает задачу: подсчёт количества предложений в строке, каждое из которых заканчивается точкой, восклицательным или вопросительным знаком.

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.
• В конце выводим количество предложений.

Если нужно более сложное решение, например, учитывать наличие пробелов после знаков или исключать случаи, когда знак внутри слова, сообщите!