Дана рядок, що складається з російських слів, розділених пробілами (одним або неяк

Дана рядок, що складається з російських слів, розділених пробілами (одним або декількома). Знайти кількість слів у рядку.
Поясніть принцип вирішення даної задачі.Какой алгоритм дій потрібен?

  • Тільки для версії PascalABC.Net 3.2

    Коротко і ефектно!

    begin
      Writeln ( 'Кількість слів одно', ReadlnString ( 'Вводите:'). ToWords.Count)
    end.

    приклад
    Вводите: Карл у Клари вкрав корали.
    Кількість слів дорівнює 5

    VBA MS Excel 2003

    Sub aaa ()
        a = Split (InputBox ( "Введіть рядок"), "")
        k = 0
        For Each e In a
           If e <> "" Then k = k + 1
        Next
        MsgBox "Кількість слів одно" + Str (k)
    End Sub

You may also like

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

89 − 82 =