var
n,x,i,j,k,m,p,t:longint;
f,a:array[0..1000002] of longint;
begin
assign(input, *count.in*); reset(input);
assign(output, *count.out*); rewrite(output);
readln(n,x);
t:=1;
for i:=1 to n do f[i]:=i;
for i:=1 to n do
begin
k:=f[i];
while k>=0 do
begin
a[t]:=k mod 10;
if a[t]>=0 then
begin
k:=k div 10;
inc(t);
end;
end;
end;
for i:=1 to t do
if a[i]=x then inc(p);
writeln(p);
close(input); close(output);
end.

字符串无压力啊亲

var
x,i:longint;
procedure init;
begin
assign(input,*prime.in*);
reset(input);
assign(output,*prime.out*);
rewrite(output);
end;
procedure outit;
begin
close(input);
close(output);
end;
procedure main;
begin
readln(x);
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then
begin
write(x div i);
outit;
halt;
end;
end;
begin
init;
main;
outit;
end.