begin Write('Numarul divizorilor: '); read(k); while b<>1 do begin s+=1; l:=0; for p:=1 to s do if s mod p = 0 then inc(l); if l=k then inc(b); end; writeln('Numarul: ',s); end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!
