Определить количество слов в строке, оканчивающихся на заданный символ - Pascal ABC
Формулировка задачи:
Прошу помощи.
Дана символьная строка и символ. Слово - последовательность символов между пробелами, не содержащая пробелы внутри
себя. Определить количество слов в строке, оканчивающихся на заданный символ.
Решение задачи: «Определить количество слов в строке, оканчивающихся на заданный символ»
textual
Листинг программы
- const space=' ';
- var s : string;
- ch : char;
- i, j : byte;
- BEGIN
- WriteLn('Введите строку:');
- ReadLn(s);
- Insert(space, s, length(s)+1);
- WriteLn('Введите символ:');
- ReadLn(ch);
- j:= 0;
- for i:= 1 to Length(s) do
- if ((s[i]=ch) and (s[i+1]=space)) then Inc(j);
- WriteLn(j);
- END.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
