Для строки a$ определить, является ли она десятичной записью числа, кратного 9. Вывести результат анализа и удвоенное число — QBasic(Бейсик)

disel
1
2
3
4
5
6
INPUT a$
f = 0
FOR i = 1 TO LEN(a$)
        IF VAL(MID$(a$, i, 1)) <> 0 AND VAL(MID$(a$, i, 1)) > 9 THEN f = 1
NEXT i
IF f = 0 AND VAL(a$) MOD 9 = 0 THEN PRINT "yes": PRINT VAL(a$) * 2 ELSE PRINT "no"

Похожие записи/страницы: