Дан текст. Если в нем нет английских букв, то оставить его без изменения, иначе каждую английскую букву заменить на символ *- QBasic(Бейсик)

INPUT a$
FOR i = 1 TO LEN(a$)
    b$ = MID$(a$, i, 1)
    IF ASC(b$) >= 65 AND ASC(b$) <= 90 OR ASC(b$) >= 97 AND ASC(b$) <= 122 THEN c$ = c$ + "*" ELSE c$ = c$ + b$
NEXT
PRINT c$

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

Leave a Comment