exponent.pas

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

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