language: Pascal (gpc) (gpc 20070904)
date: 104 days 19 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11

program maxfact (input,output);
    var N , i, j ,m : integer;
        a : array [1..5000000] of boolean;
begin
    read(N);
    for i:=1 to N do a[i]:=true;
    m:=trunc(sqrt(N));
    for i:=2 to m do 
      if a[i] then for j:=2 to N div i do a[i*j]:=false;
    for i:=2 to N do if a[i] then write(i, ' ');    
end.