var a,b,c,d,n,i,j,s:longint; begin read(n,a,b); c:=n div a+1; d:=n div b+1; for i:=10 to c do for j:=10 to d do if (a*i)+(b*j)=n then inc(s); write(s); end. /************************************************************** Problem: 1793 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/