Question

Задача : выведите кол-во слов в которых есть определённая буква. пример : ввод: а (буква) папа ел кашу (строка) вывод : 2

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString('Введите текст:').ToLower.ToWords;
  var c:=ReadlnChar('Введите искомую букву').ToLower;
  Writeln('Слов с этой буквой: ',a.Where(w->w.Contains(c)).Count)
end.

Пример
Введите текст: А роза упала на лапу Азора
Введите искомую букву а
Слов с этой буквой: 6

Answer 2

Для решения этой задачи вам понадобится написать программу. Вот пример программы на Python, которая считает количество слов в строке, содержащих определенную букву:

pythonCopy code
def count_words_with_letter(letter, text):
    words = text.split()  # Разделяем строку на слова
    count = 0  # Переменная для подсчета слов с заданной буквой

    for word in words:
        if letter in word:
            count += 1

    return count

# Ввод буквы и строки
letter = input("Введите букву: ")
text = input("Введите строку: ")

# Вызов функции и вывод результата
result = count_words_with_letter(letter, text)
print(f"Количество слов, содержащих букву '{letter}': {result}")

Вы можете ввести букву и строку, как показано в программе, и она вернет количество слов в строке, содержащих заданную букву.