Дано предложение A$, состоящее из 2 слов. Вывести менее длинное слово.- QBasic(Бейсик)

CLS
INPUT "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)
NEXT
IF LEN(b1$) > LEN(b2$) THEN
    PRINT "max = "; b1$, "min = "; b2$
ELSE
    PRINT "max = "; b2$, "min = "; b1$
END IF

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment