Подсчитать количество слов (длиной больше 3) в строке - Free Pascal

Формулировка задачи:

Тут такая вот задача: Посчитать количество слов в тексте с количеством символов больше 3. Слово - набор ЛЮБЫХ символов кроме пробела.

Решение задачи: «Подсчитать количество слов (длиной больше 3) в строке»

Листинг программы

uses strutils;
var
  s : string;
  i, count : integer;
 
begin
  write('s = '); readln(s);
  count := 0;
  for i := 1 to WordCount(s, [' ']) do
    if Length(ExtractWord(i, s, [' '])) > 3 then inc(count);
 
  writeln('count = ', count);
end.

Объяснение кода листинга программы

Импортируется модуль StrUtils.
Объявлены переменные: s - строка для ввода, i - счётчик цикла, count - счётчик слов.
Вводится строка s с помощью функции readln().
Устанавливается начальное значение count = 0.
В цикле от 1 до WordCount(s, [' ']) выполняется следующее:
- Извлекается i-е слово из строки s с помощью функции ExtractWord(i, s, [' ']).
- Проверяется условие Length(ExtractWord(i, s, [' '])) > 3.
- Если условие выполняется, то увеличивается значение count на 1.
Выводится значение count с помощью функции writeln().

Оцени полезность:

6 голосов , оценка 3.833 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы