FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
Gabriela Gaby Profile
 | Femeie
25 ani
Suceava
cauta Barbat
26 - 71 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
Postari: 215
|
|
{sa se calculeze exponentul la care nr prim p in
descompunerea numarului n factorial pt un nr natural}
program cincisprezece;
var n,p:integer;
exp:byte;s:integer;
i,a:integer;
begin
write('n=');readln(n);
write('p=');readln(p);
s:=0;
for i:=1 to n do
begin
a:=i;
exp:=0;
while a mod p =0 do
begin
exp:=exp+1;
a:=a div p;
end;
s:=s+exp;
end;
writeln('s=',s);
readln;
end.
|
|
| |
|
