определить все простые числа не превосходящие заданного N QBasic

[werus]

определить все простые числа не превосходящие заданного N, (распознование простых чисел оформить в виде подпрограммы)

[Stilet]

Смотри в конец страницы. Там ссылки на подобные темы.

[werus]

спасибо, правда ниче не понятно,но спасибо, а эту прогу на qb перевести сможете?

From Stilet: Надо было язык указывать сразу

[Sazary]

DECLARE FUNCTION isprost! (N AS INTEGER)
CLS
DIM N AS INTEGER
DIM i AS INTEGER
INPUT "Enter N: "; N

FOR i = 1 TO N
 IF isprost(i) = 1 THEN
  PRINT i
 END IF
NEXT i
END

FUNCTION isprost (N AS INTEGER)
DIM i AS INTEGER
IF N = 1 THEN
 isprost = 1
 EXIT FUNCTION
END IF
FOR i = 2 TO SQR(N)
 IF N MOD i = 0 THEN
  isprost = 0
  EXIT FUNCTION
 END IF
NEXT i
isprost = 1
END FUNCTION

[werus]

спс, так мне и надо было на обоих языках