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:
Nicole23
Femeie
25 ani
Bucuresti
cauta Barbat
28 - 65 ani
FORUM / Forum Nou / 15  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

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

Mergi la