Найти сумму всех простых чисел (от 10 до 99) — QBasic(Бейсик)

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 ( Скачать )

Leave a Comment