Submission #2228152

Source Code Expand

var
  i,n,ans:longint; 
function prime(n:longint):boolean;
var
  i:longint;
begin
  i:=2 to trunc(sqrt(n)) do
    if n mod i=0 then exit(false);
  exit(true);
end;
begin
  readln(n);
  for i:=2 to n do
    if prime(i) then inc(ans);
  writeln(ans);
end.

Submission Info