用Pascal编写一程序,输入一个正整数N,将N分解成质因数幂的乘积形式(帮忙看一下我哪里错了)
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/05 07:46:14
用Pascal编写一程序,输入一个正整数N,将N分解成质因数幂的乘积形式(帮忙看一下我哪里错了)
Program dw;
var n,i,t:longint;
begin
readln(n);
write(n,'=');
i:=2;
while n1 do
if n mod i=0 then
begin
t:=t+1;
n:=n div i;
if n=1 then write(i,'(',t,')');
end
else
begin
if t0 then
begin
write(i,'(',t,')','*');
end;
end;
End.
Program dw;
var n,i,t:longint;
begin
readln(n);
write(n,'=');
i:=2;
while n1 do
if n mod i=0 then
begin
t:=t+1;
n:=n div i;
if n=1 then write(i,'(',t,')');
end
else
begin
if t0 then
begin
write(i,'(',t,')','*');
end;
end;
End.
1.每次除完之后i 要更新,你这里i的值就没变过
2.每次输出后要把t 赋值为0;
3.if n mod i=0 then
begin
t:=t+1;
n:=n div i;
if n=1 then write(i,'(',t,')');
end
这里不能用IF语句,用IF语句只会出1次,要改为WHILE语句我把你的程序改了一下,贴在下面,应该没问题了.
var n,i,t:longint;
begin
readln(n);
write(n,'=');
i:=2;
while n1 do
begin
while n mod i=0 do
begin
t:=t+1;
n:=n div i;
end;
if t0 then
begin
write(i,'(',t,')');
if n1 then write('*');
end;
i:=i+1; t:=0;
end;
End.
2.每次输出后要把t 赋值为0;
3.if n mod i=0 then
begin
t:=t+1;
n:=n div i;
if n=1 then write(i,'(',t,')');
end
这里不能用IF语句,用IF语句只会出1次,要改为WHILE语句我把你的程序改了一下,贴在下面,应该没问题了.
var n,i,t:longint;
begin
readln(n);
write(n,'=');
i:=2;
while n1 do
begin
while n mod i=0 do
begin
t:=t+1;
n:=n div i;
end;
if t0 then
begin
write(i,'(',t,')');
if n1 then write('*');
end;
i:=i+1; t:=0;
end;
End.
用Pascal编写一程序,输入一个正整数N,将N分解成质因数幂的乘积形式(帮忙看一下我哪里错了)
在 TURBO PASCAL 中 编一程序 输入一个正整数N 将N分解成质因数幂的乘积形式 请知道的一定告诉下额
编写程序,输入一个正整数n(1
编写程序,输入一个正整数n(1
输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal.
用C语言编写程序,输入一个正整数n(1
用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3
用vb语言编写一个程序,将任意一个正整数N的立方分解为N个连续的奇数之和.
请编写程序,输入正整数n,1
pascal金字塔编写一个程序,输入两个整数N和K(N,K
用 Pascal 编写一个程序将十进制整数n转换为二进制数.
VB:输入一个正整数N,把它分解成质因子相乘的形式