Я мог ошибиться в формуле. Она в цикле, перепроверь.
<span>Возможен такой вариант:
a = <span>179
</span>x = <span>1543
</span>while x:
a += <span>2007
</span> x -=<span>1
</span>print(a)
Тестовое решение:
3096980
</span>
DIM b AS STRING * 1
DIM a AS STRING * 100
DIM i, k, n AS INTEGER
INPUT "INPUT STRING", a$
INPUT b$
k = LEN(a$)
FOR i = 1 TO k
IF MID$(a$, i, 1) = b$ THEN
n = n + 1
END IF
NEXT i
PRINT n
END<span>
</span>
Объекты БД, их хранение СУБД Access ориентирована на работу с объектами БД, к которым относятся таблицы, запросы, формы, отчеты, страницы, макросы и модули