Висходной строке а$ определить и вывести слова, в которых первая буква встречается всего один раз.(бэйсик)

111

401

Посмотреть ответы 2

Ответы на вопрос:

ПолинаРыжкова3

Информатика

4,6(98 оценок)

Dim s, s1, s0, t as string 'строка, первая буква слова, слово, список нужных слов s = inputbox("введите строку: ") do do n = n + 1 if s1 = "" then s1 = mid(s, n, 1) 'запоминаем первую букву слова if mid(s, n, 1) = s1 then m = m + 1 'считаем, сколько раз она встретилась s0 = s0 & mid(s, n, 1) 'запоминаем слово if n > len(s) then exit do loop while mid(s, n, 1) < > " " if m = 1 then t = t & s0 'переносим слово в список m = 0 'сбрасываем промежуточные переменные в исходное состояние s1 = "" s0 = "" loop until n > len(s) if t = "" then t = "искомых слов нет" msgbox (t)