Требуется найти n-ое число в последовательности простых чисел. n < 1000000. .

246

344

Посмотреть ответы 2

Ответы на вопрос:

miaamkom1

Информатика

4,7(26 оценок)

Var n,p,k,i,j: integer; f: boolean; begin write('n = '); readln(n); p: =2; for i: =2 to n do begin f: =false; while not f do begin p: =p+1; k: =0; for j: =2 to round(sqrt(p)) do if p mod j = 0 then k: =k+1; f: =k=0; end; end; writeln(p); end. пример: n = 25 97