1 2 3 4 5 6 7 8 9 10 | 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)NEXTIF LEN(b1$) > LEN(b2$) THEN PRINT "max = "; b1$, "min = "; b2$ELSE PRINT "max = "; b2$, "min = "; b1$END IF |
Тестирование выполнено в программе QB64 ( Скачать )