分解质因子pascal_因子的个数Pascal程序

原问题：因子的个数Pascal程序
分类：编程开发 > 最后更新时间：【2016-12-16 06:49:20】
问题补充：

【试题描述】

输入一个整数n和要找因子k。编程求出这个整数n中有多少个k因子。

【输入要求】

一行，两个整数n和k

【输出要求】

一行，一个整数。

【输入样例】8 2【输出样例】3

最佳答案

var
a, b, c: integer;
begin
c := 0;
readln(a, b); //注意b>=1
if b = 1 then //b=1时处理
writeln(a)
else //其它情况
begin
while a mod b = 0 do
begin
inc(c);
a := a div b;
end;
writeln(c);
end;
end.

最佳答案由网友  whoami1978  提供
公告： 为响应国家净网行动，部分内容已经删除，感谢网友理解。
18

分享到：

其他回答

暂无其它回答!

    推荐