CLS a$ = "abc" INPUT "n = ", n INPUT S$ IF LEN(S$) < n THEN n = LEN(S$) END IF k = 0 FOR i = 1 TO n - 2 IF MID$(S$, i, 3) = a$ THEN k = k + 1 END IF NEXT i PRINT "k = "; k END
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку