Найти отношение числа к сумме его цифр - QBasic

Формулировка задачи:

1). Составить программу, которая находит наибольшее значение отношения трехзначного числа к сумме его цифр. 2)Даны действительное число a b натуральное число n. Вычислить:

Решение задачи: «Найти отношение числа к сумме его цифр»

Листинг программы

CLS
 
INPUT "N = "; n
INPUT "A = "; a
 
s = 1 / a
b = 1 / a ^ 2
 
FOR i = 1 TO n - 1
   s = s + b
   b = b / a ^ 2
NEXT i
PRINT "S ="; s
END

Объяснение кода листинга программы

n - количество чисел для проверки
a - число, отношение которого к сумме его цифр нужно найти
s - переменная для хранения суммы цифр
b - переменная для хранения промежуточного значения
Цикл FOR от 1 до n-1 - перебирает числа от 1 до n-1
В каждой итерации цикла значение переменной s увеличивается на значение переменной b
Значение переменной b уменьшается на a в каждой итерации цикла
После завершения цикла выводится значение переменной s