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

disel
1
2
3
4
5
6
7
8
9
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