Дана произвольная фраза, слова в которой отделяются символами » «(пробел) «:» «,» Требуется подсчитать количество каждого из этих разделительных символов и выделить отдельные слова — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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

Похожие записи/страницы: