1 2 3 4 5 6 7 8 | DIM s AS STRING , slov AS INTEGER CLS: INPUT "Vvedite slovo:"; s s = RTRIM$(LTRIM$(s)): slov = 1 IF s = "" THEN PRINT 0 : END DO : f = INSTR( 1 , s, " ") IF f = 0 THEN EXIT DO ELSE slov = slov + 1 : s = RIGHT$(s, LEN(s) - f) LOOP PRINT slov |
Тестирование выполнено в программе QB64 ( Скачать )