Определить длину самого длинного слова в предложении — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
CLS
INPUT "Vvedite predlogenije:", Pre$
Razdelitel$ = " " '  Znak razdeleniya slov
FOR i% = 1 TO LEN(Pre$)
    IF MID$(Pre$, i%, 1) <> Razdelitel$ THEN Dlin% = Dlin% + 1 ELSE Dlin% = 0
    IF Dlin% > Max% THEN Max% = Dlin%
NEXT
PRINT "Dlina samogo dlinnogo slova:"; Max%

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

Похожие записи/страницы:

Leave a Comment