Question

Am o problema de informatica pe care nu stiu sa o rezolv:
Să se scrie un program care determină cel mai mic număr care are exact k divizori.

exemplu. Pentru k=4 se obține numărul 6.

Multumesc mult!!!!

Answer 1

var n,k,s,p,l:integer;
b:byte;

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.