CLS
FOR i = 10 TO 99
s = 0
FOR y = 2 TO SQR(i)
IF i MOD y = 0 THEN s = 1
NEXT y
IF s = 1 THEN ELSE l = l + i
NEXT i
PRINT l
Тестирование выполнено в программе QB64 ( Скачать )
CLS
FOR i = 10 TO 99
s = 0
FOR y = 2 TO SQR(i)
IF i MOD y = 0 THEN s = 1
NEXT y
IF s = 1 THEN ELSE l = l + i
NEXT i
PRINT l
Тестирование выполнено в программе QB64 ( Скачать )