В трехзначном числе x зачеркнули его вторую цифру. Когда к образованному при этом...

Question

В трехзначном числе x зачеркнули его вторую цифру. Когда к образованному
при этом двузначному числу справа приписали вторую цифру числа x, то по-
лучилось число 456. Найти число x.
в QB если можно

Answer 1

Пусть первоначально число имело вид abc, После зачеркивания второй цифры оно превратилось в ac, а когда зачеркнутую b приписали справа, получилось acb=456, откуда понятно, что фактически поменяли местами цифры b и c. Поэтому программа должна получить число (456) и поменять в нем последнюю цифру с соседней, получив 465.

MS DOS QBasic 1.0

DIM r AS INTEGER
CLS
INPUT r
b = r MOD 10
a = INT(r / 100)
c = INT(r / 10) MOD 10
r = 100 * a + 10 * b + c
PRINT "x="; r