作业帮 > 综合 > 作业

输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal.

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/10 13:32:29
输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal.
输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal.
program fenjie;
var t,k,n:longint;
s,o:string;
begin
readln(n);
write(n,'=');
for t:=2 to trunc(sqrt(n)) do
begin
if n mod t=0 then {试除}
repeat
n:=n div t;
str(t,o);
s:=s+o+'*'; {结果用字符串存了,便于输出}
until n mod t0;
end;
delete(s,length(s),1);
writeln(s);
end.