Суммировать вводимые положительные числа - QBasic (27284)

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

Суммировать вводимые положительные числа так, что каждое число, порядковый номер которого кратен 3, игнорируется. Определить количество введенных и просуммированных чисел. При достижении текущей суммы значения К закончить работу. Заранее спасибо за помощь

Решение задачи: «Суммировать вводимые положительные числа»

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

DECLARE SUB Vvod (sum!, kv!, ks!)
CLS
DIM SHARED k
INPUT "K = "; k
PRINT
CALL Vvod(sum, kv, ks)
PRINT
PRINT "SUM ="; sum
PRINT "VSEGO CHISEL ="; kv
PRINT "SUM_CHISEL ="; ks
END
 
SUB Vvod (sum, kv, ks)
   IF sum >= k THEN EXIT SUB
   INPUT "N = "; n
   IF n > 0 AND n MOD 3 <> 0 THEN
      sum = sum + n
      ks = ks + 1
   END IF
   kv = kv + 1
   CALL Vvod(sum, kv, ks)
END SUB

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

Установка начальных значений переменных:
- sum - текущая сумма вводимых чисел
- kv - текущее количество введенных чисел
- ks - текущее количество чисел, которые делятся на 3
Ввод числа k с клавиатуры, которое представляет собой границу для суммирования чисел
Вызов подпрограммы Vvod(sum, kv, ks)
Рекурсивный вызов подпрограммы Vvod(sum, kv, ks) с обновленными значениями переменных sum, kv и ks
Проверка условия для прекращения рекурсии: если сумма текущего числа n больше k, то происходит выход из подпрограммы
Ввод числа n с клавиатуры
Проверка условия для добавления числа n к сумме:
- n больше 0
- n не делится на 3 без остатка
Обновление значений переменных sum, kv и ks
Рекурсивный вызов подпрограммы Vvod(sum, kv, ks) с обновленными значениями переменных sum, kv и ks
Вывод на экран значений переменных sum, kv и ks