Из трех слов вывести самое длинное — QBasic(Бейсик)

word1$ = ""
word2$ = ""
word3$ = ""
INPUT "Type first word"; word1$
INPUT "Type second word"; word2$
INPUT "Type third word"; word3$
i1 = LEN(word1$)
i2 = LEN(word2$)
i3 = LEN(word3$)
IF i1 > i2 THEN
    IF i1 > i3 THEN
        PRINT word1$
    ELSE
        PRINT word3$
    END IF
ELSE
    IF i2 > i3 THEN
        PRINT word2$
    ELSE
        PRINT word3$
    END IF
END IF

Leave a Comment