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

Категория: Basic
2011-09-16 16:39:18
code: #basic
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"
Поделиться:

Похожие статьи:

теги: студенты, работа со строками, строка, qbasic, десятичная запись числа