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

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

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

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

textual
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

5   голосов, оценка 4.600 из 5


СОХРАНИТЬ ССЫЛКУ