Вычислить сумму простых чисел - 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

Код к задаче: «Вычислить сумму простых чисел - QBasic»

textual
FOR i = 2 TO SQR(n)

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


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