rox_ex.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 18 行

program exponent;
var n,p,i,t :integer;
begin
write('n=');readln(n);
write('p=');readln(p);
t:=0;
for i:=1 to n do
  begin
   while i mod p=0 do
   begin
   repeat
   i:=i div p;
   t:=t+1;
   until i =1 ;
   end;
  end;
writeln('t=',t);
end.