Программное обеспечение на языке Qbasic .
Задача
Известно число А. Оно получено после того , как в числе В поменяли местами цифры в разряде сотен и единиц . Найдите число В

1

Ответы и объяснения

  • Участник Знаний
2014-03-29T12:03:08+04:00
Задача сводится к тому, чтобы опять поменять цифры. Вид программы будет зависеть от версии Бейсика. Вот, что у меня работает:
INPUT "Введите число "; X
Y = X MOD 1000                    'взяли три последних разряда
X = X - Y                                'обнулили последние три разряда
T$ = STR$(Y)                         'превратили число в текст
T1$ = LEFT$(T$, 2)                 'первая позиция отводится для знака числа, поэтому начинаем с 2, а в следующей строке - с 3)
T2$ = MID$(T$, 3, 1)               'число десятков
T3$ = RIGHT$(T$, 1)               'число единиц
Y = VAL(T3$) * 100 + VAL(T2$) * 10 + VAL(T1$)        'новые три последних разряда
X = X + Y                               'новые разряды добавляем к числу
PRINT X