Дана строка, заканчивающаяся точкой. Подсчитать, сколько в строке слов с тремя буквами. PASCAL.

Для решения задачи на языке Pascal, нам нужно пройти по строке, разделить её на отдельные слова и подсчитать, сколько из этих слов содержат ровно три буквы.

Вот пример программы на Pascal, которая решает эту задачу:

pascal
Копировать код
program CountThreeLetterWords;
var
  s: string;
  i, count: integer;
  word: string;
begin
  // Ввод строки
  readln(s);
  
  // Убираем точку в конце строки
  delete(s, length(s), 1);
  
  // Инициализация счётчика
  count := 0;
  word := '';
  
  // Проходим по каждому символу строки
  for i := 1 to length(s) do
  begin
    if s[i] = ' ' then
    begin
      // Если слово состоит из 3 символов, увеличиваем счётчик
      if length(word) = 3 then
        inc(count);
      word := '';  // Сбрасываем слово
    end
    else
      word := word + s[i];  // Строим слово
  end;
  
  // Проверяем последнее слово после завершения цикла
  if length(word) = 3 then
    inc(count);
  
  // Выводим результат
  writeln(count);
end.

Пояснение программы:

1. Ввод строки: Строка вводится через readln(s).

2. Удаление точки: Используется функция delete(s, length(s), 1), чтобы убрать последнюю точку из строки, так как она не относится к словам.

3. Перебор символов: Программа проходит по каждому символу строки. Если символ пробел, значит, текущий сбор слова завершён, и нужно проверить его длину.

4. Проверка длины слова: Если длина слова равна 3, увеличивается счётчик.

5. Проверка последнего слова: После окончания цикла проверяется последнее слово (после последнего пробела), так как оно не заканчивается пробелом.

6. Вывод результата: В конце выводится количество слов с тремя буквами.

Этот код будет работать корректно для строки, заканчивающейся точкой.