FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
Sabina
Femeie
25 ani
Bucuresti
cauta Barbat
25 - 63 ani
FORUM / Forum Nou / 16  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
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.
pus acum 18 ani
   
Pagini: 1  

Mergi la