var a,b,c,d,e,f:longint; begin read(a,b,c); d:=0; for e:=1 to (a div b) do for f:=1 to (a div c) do if a=e*b+f*c then begin d:=d+1; end; writeln(d); end.
var a,b,c,d,e,f,g:longint; begin read(a,b,c); d:=0; g:=a div b; for e:=1 to g do begin f:=a-e*b; if (f>0) and (f mod c=0) then d:=d+1; end; writeln(d); end.