FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
glamour35
 | Femeie
24 ani
Constanta
cauta Barbat
28 - 69 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
Postari: 215
|
|
{cel mai mare nr nat cu exact k divizOri sau egal cu n
functie care nr divizorii.}
program sasesprezce;
var n,k,i,a:longint;
function divi(n:longint):longint;
var i,nr:longint;
begin
nr:=1;
for i:=1 to n div 2 do
if n mod i = 0 then nr:=nr+1;
divi:=nr;
end;
begin
write('n='); readln(n);
write('k='); readln(k);
a:=-1;
for i:=1 to n do
if divi(i)=k then a:=i;
if a=-1 then writeln('nu are solutie')
else writeln(a);
readln;
end.
|
|
| |
|
