Анонимный участник
Tub sonlar roʻyxati: различия между версиями
→Adabiyot
Sf7 uz (обсуждение | вклад) м (Text replacement - "[[Turkum" to "[[Category") |
|||
Строка 117:
[[Category:Matematika]]
var
prime:array[0..1000000]of integer;
n,i,j:integer;
o:boolean;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
read(n);
i:=2;prime[0]:=0;
while prime[prime[0]]<n do
begin
o:=true;
for j:=1 to prime[0] do
if prime[j]>trunc(sqrt(i)) then break
else
if i mod prime[j] =0 then
begin
o:=false;
break;
end;
if o then
begin
inc(prime[0]);write(i,' ');
if prime[0] mod 100 =0 then
writeln;
prime[prime[0]]:=i;
end;
inc(i)
end;
end.
| |||