1 2 3 4 5 6 7 8 9 10 | SCREEN 0CLScolor 0,7s$="<<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+1NEXT xPRINT "v slove";k;"bykvbi <<a>>." |
1 2 3 4 5 6 7 8 9 10 | SCREEN 0CLScolor 0,7s$="<<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+1NEXT xPRINT "v slove";k;"bykvbi <<a>>." |