free pascal分解质因数描述 Description 每一个大于1的整数,都可以分解为一个或多个质数的积.现在,请你来完成这个任务.输入格式 Input Format 一行,一个整数,表示待分解的数.(2
来源:学生作业学帮网 编辑:学帮网 时间:2024/05/31 08:33:07
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.
谨遵楼主意愿,未使用函数过程,若楼主有意,
free pascal分解质因数描述 Description 每一个大于1的整数,都可以分解为一个或多个质数的积.现在,请你来完成这个任务.输入格式 Input Format 一行,一个整数,表示待分解的数.(2
最小公倍数的算法 分解质因数 急谁能告诉我所有最小公倍数的算法,最好把代码传上来,要PASCAL语言的,主要是分解质因数法求最小公倍数,一定要这个算法的完整代码,算法描述:先将n个数分
输入一个正整数n,将n分解成质因数幂的乘积形式.编程turbo pascal...
free pascal常见语句
求几道 初学 free pascal
free pascal 黑洞6174
free pascal怎样产生随机数
Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?Free Pascal 和Pascal的区别?为什么竞赛都用Free Pascal?
怎么分解质因数,把480分解质因数
60分解质因数 98分解质因数
130 分解质因数 154 分解质因数
65、56分解质因数
56分解质因数
65分解质因数是
65分解质因数
108.507.180.56分解质因数
56怎么分解质因数
把63分解质因数.