Можно ли решить без цикла? - QBasic

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

Определить сумму квадратов и количество введенных чисел. При А(i+1)>A(i) закончить работу. Заранее спасибо.

Решение задачи: «Можно ли решить без цикла?»

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

DECLARE SUB SUM2 (a!, b!, s!, n!)
 
CLS
CALL SUM2(a, b, s, n)
 
PRINT "Summa kvad ="; s
PRINT "Kol chisel ="; n
END
 
SUB SUM2 (a, b, s, n)
   INPUT a
   IF a > b AND n <> 0 THEN EXIT SUB
   n = n + 1
   s = s + a ^ 2
   b = a
   CALL SUM2(a, b, s, n)
END SUB

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

В этом коде выполняется сложение квадратов чисел от k до n с шагом 1. При этом, если k больше b, и на текущем шаге сумма квадратов чисел от k до b не равна нулю, то выполняется выход из подпрограммы. Список элементов:

Объявление подпрограммы SUM2.
Очистка экрана.
Вызов подпрограммы SUM2 с передачей параметров a, b, s, n.
Вывод значения переменной s.
Вывод значения переменной n.
Вход в подпрограмму SUM2.
Ввод значения переменной a.
Проверка условия a > b AND n <> 0.
Если условие выполняется, то выполняется выход из подпрограммы.
Увеличение значения переменной n на 1.
Увеличение значения переменной s на сумму квадратов числа a.
Установка значения переменной b равным значению переменной a.
Вызов подпрограммы SUM2 с передачей параметров a, b, s, n.
Выход из подпрограммы SUM2.
Вывод значения переменной s.
Вывод значения переменной n. Таким образом, список элементов кода:
Объявление подпрограммы SUM2.
Вызов подпрограммы SUM2.
Вывод значения переменной s.
Вывод значения переменной n.
Вход в подпрограмму SUM2.
Ввод значения переменной a.
Проверка условия a > b AND n <> 0.
Увеличение значения переменной n на 1.
Увеличение значения переменной s на сумму квадратов числа a.
Установка значения переменной b равным значению переменной a.
Вызов подпрограммы SUM2.
Выход из подпрограммы SUM2.
Вывод значения переменной s.
Вывод значения переменной n.