Цитата:
CLS
be:
INPUT "Введите исходное число"; a
s = FIX(a / 100)
IF s = 0 GOTO er
IF s > 10 GOTO er
d = FIX((a - s * 100) / 10)
e = a - s * 100 - d * 10
itog = s * 100 + e * 100 + d * 20 + s + e
PRINT itog
GOTO endp
er: PRINT "Ошибка, ожидается трёхзначное число"
GOTO be
endp:
|
Выделил сотни (S), если получил ноль или больше 10, то число не является трёхзначным и выдаётся сообщение об ошибке. Выделил десятки (D) и единицы (E)... Надеюсь дальше разберёшься сам. Писал и проверял на MS-DOS QBASIC 1992 года.