• Вопрос по информатике:

    Помогите, юные программисты!
    Написать программу для решения задачи. Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.
    Протестируйте код в Паскале и прикрепите результат в скриншоте.
    45 баллов!

    • Автор:

      clay

  • //PascalABC.NET 3.4.2

    begin

     var str := readstring('Введите строку:').ToWords;

     var ch := readchar('Введите букву:');

     str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;

    end.

    я программисть:)

    • Отвечал:

      skippy4bkz
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска