Найти количество слов в заданном тексте

@Kirill6888 · Регистрация: 15.05.2012

Студворк — интернет-сервис помощи студентам

Найти количество слов в данном тексте X$
мама мыла раму
Заранее спасибо !

@Quiet Snow · 02.06.2012, 11:05

QBasic/QuickBASIC

CLS
 r$ = " "     '  Разделитель
 INPUT "Text : ", X$
 X$ = r$ + X$
FOR i% = 1 TO LEN(X$) - 1
   IF MID$(X$, i%, 1) = r$ AND MID$(X$, i% + 1, 1) <> r$ THEN k = k + 1
NEXT
PRINT k

@Kirill6888 0 / 0 / 0 Регистрация: 15.05.2012 Сообщений: 5
		1
	Найти количество слов в заданном тексте 01.06.2012, 18:41. Показов 931. Ответов 1 Метки нет (Все метки) Найти количество слов в данном тексте X$ мама мыла раму Заранее спасибо ! 0

	02.06.2012, 11:05

Опции темы

Найти количество слов в заданном тексте

Решение