{* Задача21 *}

REM basic

' Дана произвольная фраза,слова в которой отделяются символами " "; ":" "," Требуется подсчитать кол-во каждого из этих разделительных символов и выделить отдельные слова.


CLS
Dim c$(100)
LINE INPUT "vvedite frazy ";f$
For i=1 To LEN(f$)
If Mid$(f$,i,1)="," Then k=k+1
If Mid$(f$,i,1)=" " Then g=g+1
If Mid$(f$,i,1)=":" Then z=z+1
Next
PRINT"запятые";k :PRINT"пробелы";g :PRINT"двоеточие";z
f$=" "+f$
For i=1 To LEN(f$)
If Mid$(f$,i,1)=" " Or Mid$(f$,i,1)="," Or Mid$(f$,i,1)=":" Then m=m+1 Else c$(m)=c$(m)+Mid$(f$,i,1)
Next
PRINT"otdelnie slova:"
For i=1 To LEN(f$)
PRINT c$(i)
Next