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:
sweet_kiss55555 la Simpatie.ro
Femeie
25 ani
Bucuresti
cauta Barbat
30 - 53 ani
FORUM / Forum Nou / 2  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{se citeste un nr natural. sa se determine nr de divizori,fara sa se parcurga numerele mai
mici decat nr}
var n:longint;
p,exp,nr:integer;
begin
write('n='); readln(n);
p:=2; nr:=1;
while n>1 do begin
exp:=0;
while n mod p=0 do begin exp:=exp+1; n:=n div p; end;
if exp>=1 then nr:=nr*(exp+1);
p:=p+1; end;
write('nr=', nr);
readln;end.
pus acum 18 ani
   
Pagini: 1  

Mergi la