Приписать по единице в начало и конец записи числа n - QBasic

Приписать по единице в начало и конец записи числа n. Например, было n – 3456, стало n – 134561 Помогите пожалуйста!

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

INPUT a
b=a
k=10
DO
k=k*10
b=b\10
LOOP UNTIL b=0
PRINT k+a*10+1

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

В начале программы вводится число a.
Переменная b инициализируется значением a.
Переменная k инициализируется значением 10.
Запускается цикл DO.
Внутри цикла значение переменной k умножается на 10.
Значение переменной b делится на 10.
Цикл продолжается до тех пор, пока значение переменной b не станет равным 0.
После окончания цикла выводится значение переменной k, увеличенное на 10 умноженное на значение переменной a, и к этому прибавляется 1.

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

9 голосов , оценка 4.333 из 5

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