输入一个正整数n,将n分解成质因数幂的乘积形式.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/08/23 19:21:29
输入一个正整数n,将n分解成质因数幂的乘积形式.
编程turbo pascal...
编程turbo pascal...
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.