How many 3-digit numbers have the units digit larger than the tens digit?

a=1;b=0;c=0;p=0; cycle:d=a*100+b*10+c;if(c > b, goto loop, goto next); loop:printd," ",;p=p+1; next:c++;if(c<10, goto cycle, 0);c=0;b++;if(b<10, goto cycle, 0);c=0;b=0;a++;if(a<10, goto cycle,0);print"Total = ",p

 

OUTPUT = 405 such numbers.