1 2 3 4 5 6 7 8 9 | LINE INPUT "Vvedite stroky: ", a$b$ = MID$(a$, 2, 1)c$ = MID$(a$, LEN(a$) - 2, 1)FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = b$ THEN s = s + 1 IF MID$(a$, i, 1) = c$ THEN g = g + 1NEXTPRINT "Kolichestvo povtorenij 2 simvola"; sPRINT "Kolichestvo povtorenij 3 simvola "; g |
Тестирование выполнено в программе QB64 ( Скачать )