输入一个正整数n,将n分解成质因数幂的乘积形式.
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/08/12 13:03:04
输入一个正整数n,将n分解成质因数幂的乘积形式.
编程turbo pascal...
编程turbo pascal...
![输入一个正整数n,将n分解成质因数幂的乘积形式.](/uploads/image/z/15309613-37-3.jpg?t=%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E6%AD%A3%E6%95%B4%E6%95%B0n%2C%E5%B0%86n%E5%88%86%E8%A7%A3%E6%88%90%E8%B4%A8%E5%9B%A0%E6%95%B0%E5%B9%82%E7%9A%84%E4%B9%98%E7%A7%AF%E5%BD%A2%E5%BC%8F.)
var n,a,b,c,d,k,l:longint;
f,t,j:boolean;
begin
write('n=');readln(n);
a:=1;
b:=n;
t:=false;
j:=false;
repeat
f:=true;
c:=-1;
for d:=2 to a-1 do if a mod d=0 then f:=false;
if f then
repeat
c:=c+1;
k:=1;
for l:=1 to c do k:=k*a;
if k=n then begin
write(n,'=',a,'(',c,')');t:=true;j:=true;break;
end;
until c>1000;
a:=a+1;
until t or (a>n);
if not(j) then writeln('Not!');
readln;
end.
f,t,j:boolean;
begin
write('n=');readln(n);
a:=1;
b:=n;
t:=false;
j:=false;
repeat
f:=true;
c:=-1;
for d:=2 to a-1 do if a mod d=0 then f:=false;
if f then
repeat
c:=c+1;
k:=1;
for l:=1 to c do k:=k*a;
if k=n then begin
write(n,'=',a,'(',c,')');t:=true;j:=true;break;
end;
until c>1000;
a:=a+1;
until t or (a>n);
if not(j) then writeln('Not!');
readln;
end.
在 TURBO PASCAL 中 编一程序 输入一个正整数N 将N分解成质因数幂的乘积形式 请知道的一定告诉下额
用Pascal编写一程序,输入一个正整数N,将N分解成质因数幂的乘积形式(帮忙看一下我哪里错了)
VB:输入一个正整数N,把它分解成质因子相乘的形式
c语言,输入一个正整数,将这个正整数分解质因数
输入一个正整数N,把它分解成质因子相乘的形式,有错误,请指出?
c++对于输入的整数n,将其分解成若干个素数的乘积.
2^15-1能分解成n个质因数的乘积,n的值为
216-1能分解成n个质因数的乘积,n的值是( )
2的15次方减1分解成n个质因数的乘积,那么n是多少?
用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3
2^15-1能分解成n个质因数的乘积,
输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal.