Введите слово. Слово состоит из названия цифр без пробела. выведите на печать это число- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
INPUT "vvedite"; a$
h = LEN(a$)
DIM b$(9)
DATA nol,odin,dva,tri,chetyri,pjat,shest,sem,vosem,devjat
FOR i = 0 TO 9
    READ b$(i)
NEXT
i = 0: j = 1
DO
    v = LEN(b$(i))
    IF v + j - 1 > h THEN v = h
    IF b$(i) = MID$(a$, j, v) THEN
        s$ = s$ + LTRIM$(STR$(i))
        j = j + LEN(b$(i))
    ELSE
        i = i + 1
        IF i > 9 THEN i = 0
    END IF
LOOP UNTIL j >= h
PRINT s$

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

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

Leave a Comment