Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой - PascalABC.NET
Формулировка задачи:
Прошу о помощи...
Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.
Код программы чтобы был очень прост и понятен. Сделал все 34 задания из практики, кроме это.
В ступоре...
Решение задачи: «Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой»
textual
Листинг программы
begin
var S : String := ReadString('Введите строку:');
var count := 0;
foreach var W in S.ToWords do
if W[1] = W[W.Length] then
begin
if count = 0 then WriteLn('Слова, которые начинаются и оканчиваются одной и той же буквой:');
WriteLn(W);
count += 1;
end;
if count = 0 then WriteLn('Нет слов, которые начинаются и оканчиваются одной и той же буквой.');
end.
Объяснение кода листинга программы
- Переменная S типа String инициализируется значением, введенным пользователем с помощью функции ReadString.
- Переменная count инициализируется нулем и используется для подсчета найденных слов.
- В цикле foreach перебираются все слова из строки S.
- Для каждого слова W проверяется условие W[1] = W[W.Length]. Если оно выполняется, то это слово удовлетворяет условию задачи.
- Если слово удовлетворяет условию, то выводится на экран с помощью функции WriteLn, а значение переменной count увеличивается на единицу.
- Если после выполнения цикла count остается равным нулю, то выводится сообщение
Нет слов, которые начинаются и оканчиваются одной и той же буквой.