Определить количество слов в строке, оканчивающихся на заданный символ - 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.