In timp ce citesti numerele cu un for tii minte intr-un vector produsul tuturor numerelor pana la momentul actual:
f>>x;
Prod[i]=Prod[i-1]*x;
Trebuie memorat Prod[0]=1; inainte
Dupa care cu doua for-uri imbricate: unul cu i de la 1 la n si al doilea cu j de la i+1 la n verifici practic produsul tuturor secventelor posibile astfel:
If(Prod[j]/Prod[i-1] < p)