В тексте зашифровано число, цифры которого разбросаны. Восстановить это число - QBasic

Формулировка задачи:

В тексте зашифровано число, цифры которого разбросаны. Восстановить это число.

Решение задачи: «В тексте зашифровано число, цифры которого разбросаны. Восстановить это число»

Листинг программы

INPUT "Vvedite stroku "; Stroka$
x = LEN(Stroka$)
Number$ = ""
FOR n = 1 TO LEN(Stroka$)
   IF ASC(MID$(Stroka$, n, 1)) < 57 AND ASC(MID$(Stroka$, n, 1)) > 48 THEN
      Number$ = Number$ + MID$(Stroka$, n, 1)
   END IF
NEXT n
PRINT Number$

Объяснение кода листинга программы

Пользователю предлагается ввести строку.
Переменная x инициализируется значением длины введенной строки.
Переменная Number$ инициализируется пустой строкой, которая будет содержать восстановленное число.
Происходит цикл по всем символам строки.
Если текущий символ является цифрой (его ASCII-код больше 48 и меньше 57), то он добавляется к переменной Number$.
После завершения цикла, восстановленное число выводится на экран.

Оцени полезность:

10 голосов , оценка 4 из 5

Похожие ответы