Подсчитать, сколько раз входит каждый символ в данную строку

code: #basic
SCREEN 0
CLS
color 0,7
s$="<<moskva anadbir>>"
PRINT s$
PRINT "skolko bykv <<a>> v stroke?"
FOR x=1 TO LEN(s$)
IF MID$(s$,x,1)="a" THEN k=k+1
NEXT x
PRINT "v slove";k;"bykvbi <<a>>."
Поделиться:

Похожие статьи: