language: Pascal (gpc) (gpc 20070904)
date: 106 days 18 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Program exer (input,output);
var i,N,p,c:integer;
begin
    readln (N);
    i:=1;
    c:=i mod 10;
    p:=0;
    while (i<=N) do
          begin
          if (i=2) or (i=5) or (c=1) or (c=3) or (c=7) or (c=9) then
                      begin
                      p:=p+1;
                      i:=i+1;
                      c:= i mod 10;
                      end
          else i:=i+1;
           end;
     writeln (p);
end.