language: Pascal (gpc) (gpc 20070904)
date: 105 days 21 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
21
22

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