В тексте зашифровано число, цифры которого разбросаны. Восстановить это число - QBasic
Формулировка задачи:
В тексте зашифровано число, цифры которого разбросаны. Восстановить это число.
Решение задачи: «В тексте зашифровано число, цифры которого разбросаны. Восстановить это число»
textual
Листинг программы
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$
. - После завершения цикла, восстановленное число выводится на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д