fork download 
  1. program cntprim (input , output);
  2.     var N , p , i , s : integer;
  3.         a : array [1..500000] of integer;
  4.  
  5.   begin
  6.    readln(N);
  7.    s := 0;
  8.    for i := 1 to N do
  9.     a[i] := i;
  10.    p := 2;
  11.    while p * p <= N do
  12.     begin
  13.      for i := 1 to N do
  14.       if i mod p = 0 then
  15.        a[i] := 0;
  16.      i := 1;
  17.      while a[i] = 0 do
  18.       begin
  19.        p := p + 1;
  20.        i := i + 1;
  21.       end
  22.     end;
  23.    for i := 1 to N do
  24.     if a[i] <> 0 then
  25.      s := s + 1;
  26.    writeln(s);
  27.   end.
  28.  
Time limit exceeded #stdin #stdout 5s 6068KB
comments (?)
stdin 
29
stdout 
Standard output is empty
https://ideone.com/j1BNa
language:
Pascal (gpc 20070904)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!