FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
Profil xxIRISxx
 | Femeie
25 ani
Timis
cauta Barbat
25 - 60 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|
