free pascal分解质因数描述 Description 每一个大于1的整数,都可以分解为一个或多个质数的积.现在,请你来完成这个任务.输入格式 Input Format 一行,一个整数,表示待分解的数.(2
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 00:54:08
![free pascal分解质因数描述 Description 每一个大于1的整数,都可以分解为一个或多个质数的积.现在,请你来完成这个任务.输入格式 Input Format 一行,一个整数,表示待分解的数.(2](/uploads/image/z/10162077-69-7.jpg?t=free+pascal%E5%88%86%E8%A7%A3%E8%B4%A8%E5%9B%A0%E6%95%B0%E6%8F%8F%E8%BF%B0+Description+%E6%AF%8F%E4%B8%80%E4%B8%AA%E5%A4%A7%E4%BA%8E1%E7%9A%84%E6%95%B4%E6%95%B0%2C%E9%83%BD%E5%8F%AF%E4%BB%A5%E5%88%86%E8%A7%A3%E4%B8%BA%E4%B8%80%E4%B8%AA%E6%88%96%E5%A4%9A%E4%B8%AA%E8%B4%A8%E6%95%B0%E7%9A%84%E7%A7%AF.%E7%8E%B0%E5%9C%A8%2C%E8%AF%B7%E4%BD%A0%E6%9D%A5%E5%AE%8C%E6%88%90%E8%BF%99%E4%B8%AA%E4%BB%BB%E5%8A%A1.%E8%BE%93%E5%85%A5%E6%A0%BC%E5%BC%8F+Input+Format+%E4%B8%80%E8%A1%8C%2C%E4%B8%80%E4%B8%AA%E6%95%B4%E6%95%B0%2C%E8%A1%A8%E7%A4%BA%E5%BE%85%E5%88%86%E8%A7%A3%E7%9A%84%E6%95%B0.%EF%BC%882)
free pascal分解质因数描述 Description 每一个大于1的整数,都可以分解为一个或多个质数的积.现在,请你来完成这个任务.输入格式 Input Format 一行,一个整数,表示待分解的数.(2
free pascal分解质因数
描述 Description
每一个大于1的整数,
都可以分解为一个或多个质数的积.
现在,请你来完成这个任务.
输入格式 Input Format
一行,一个整数,表示待分解的数.
(2
free pascal分解质因数描述 Description 每一个大于1的整数,都可以分解为一个或多个质数的积.现在,请你来完成这个任务.输入格式 Input Format 一行,一个整数,表示待分解的数.(2
var
f:boolean;
n,i,j,k:longint;
a:array[1..100] of longint;
begin
readln(n);
i:=n div 2;j:=0;{i作为这个质因数,j作为质因数的下标}
repeat
if n mod i = 0 then begin{i为n的因数时在判断它是否为素数}
f:=true;
for k:=2 to trunc(sqrt(i)) do
if i mod k=0 then begin
f:=false;
break;
end;
if f then begin{如果是素数就存起来,并且让n除以它,接着做}
n:=n div i;
inc(j,1);
a[j]:=i;
end
else dec(i,1);
end
else dec(i,1);
until n=1;{到n=1时退出}
write(n,'=');{输出,要注意不要多输乘号}
for i:=1 to j-1 do write(a[i],'*');
writeln(a[j]);
end.
谨遵楼主意愿,未使用函数过程,若楼主有意,