1 2 3 4 5 6 7 8 9 10 11 12 | CLSINPUT "vvedite text"; a$FOR i = 1 TO LEN(a$) IF MID$(a$, i, 1) = " " THEN b1$ = MID$(a$, 1, i): b2$ = MID$(a$, i + 1, LEN(a$) - i)NEXTFOR i = 1 TO LEN(b1$) IF MID$(b1$, i, 1) = "a" THEN k1 = k1 + 1NEXTFOR i = 1 TO LEN(b2$) IF MID$(b2$, i, 1) = "a" THEN k2 = k2 + 1NEXTIF k1 > k2 THEN PRINT b1$ ELSE PRINT b2$ |
Тестирование выполнено в программе QB64 ( Скачать )