1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
var
wyn,n,k,a,b:qword;
function SK(ln:qword):qword;
var
wynik:longint;
Begin
    wynik:=0;
    while ln>0 do
        begin
            wynik:=wynik+((ln mod 10)* (ln mod 10));
            ln:=ln div 10;
        end;
    SK:=wynik;
End;

BEGIN
clrscr;

readln(k);
readln(a);
readln(b);

n:=a;
while (n<=b) do
        begin
            if n mod k = 0 then
            begin
            if n=SK(n)*k then inc(wyn);
            n:=n+k;
            end
            else
            inc(n);

        end;


writeln(wyn);
readkey;
END.