Вычислить сумму простых чисел - QBasic

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

Дано число 1732051. Требуется вычислить сумму 1732051 + 173205 + 17320 + 1732 + 173 + 17 + 1. Слагаемое идет в сумму при условии, что оно простое число. иными словами, прежде чем складывать надо проверить числа на простоту (1 - не является простым числом и составным тоже) Ответ: 1732241.

                    Листинг программы
                
 
                        
                          
                    
REM
REM  S = 1732241
REM
 
DECLARE FUNCTION f! (n!)
CLS
n = 1732051
 
IF f(n) THEN s = n
 
FOR i = 1 TO 6
   n = n \ 10
   IF f(n) THEN s = s + n
NEXT
 
PRINT s
END
 
FUNCTION f (n)
   IF n <= 1 THEN f = 0 ELSE f = -1
   FOR i = 2 TO n \ 2
      IF n MOD i = 0 THEN
         f = 0
         EXIT FUNCTION
      END IF
   NEXT
END FUNCTION

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

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

FOR i = 2 TO SQR(n)

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

Проверяется, является ли число i простым.
Если число i является простым, то оно добавляется к сумме.
Вычисляется квадратный корень из n.
Задается начальное значение переменной i равное 2.
Устанавливается конечное значение переменной i равное SQR(n).
Вычисляется значение переменной n.