Составить программу, печатающую все простые числа, не превосходящие данного числа. большое.

146

500

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

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

sonyafeldman

Информатика

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

Uses crt; var k,i,n,s: integer; istin: boolean; label 1,2; begin clrscr; k: =1; writeln ('vvedite chislo'); readln(n); 1: n: =n; for s: =2 to n-1 do begin if n mod s=0 then begin n: =n+1; goto 1; end else goto 2; end; 2: while k< 100 do begin istin: =true; i: =3; while (i< =trunc(sqrt( and istin do if n mod i=0 then istin: =false else i: =i+2; if istin then begin write(n,' '); k: =k+1; end; n: =n+2; end; readkey end.