输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal.
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/10 13:32:29
输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal.
program fenjie;
var t,k,n:longint;
s,o:string;
begin
readln(n);
write(n,'=');
for t:=2 to trunc(sqrt(n)) do
begin
if n mod t=0 then {试除}
repeat
n:=n div t;
str(t,o);
s:=s+o+'*'; {结果用字符串存了,便于输出}
until n mod t0;
end;
delete(s,length(s),1);
writeln(s);
end.
var t,k,n:longint;
s,o:string;
begin
readln(n);
write(n,'=');
for t:=2 to trunc(sqrt(n)) do
begin
if n mod t=0 then {试除}
repeat
n:=n div t;
str(t,o);
s:=s+o+'*'; {结果用字符串存了,便于输出}
until n mod t0;
end;
delete(s,length(s),1);
writeln(s);
end.
输入一个正整数N,把它分解成质因子相乘的形式.如:36=1×2×2×3×3;用 FREE pascal.
用VB编写输入一个正整数N,把它分解成质因子相乘的形式.如输入36,输出36=1×2×2×3×3
VB:输入一个正整数N,把它分解成质因子相乘的形式
输入一个正整数N,把它分解成质因子相乘的形式,有错误,请指出?
用Pascal编写一程序,输入一个正整数N,将N分解成质因数幂的乘积形式(帮忙看一下我哪里错了)
C语言.输入一个正整数,输出它的所有质数的因子(如180的质数因子为2,2,3,3,5)
Pascal 语言输入一个正整数,求出它的所有素因子,每两个数之间用一个空格隔开
在 TURBO PASCAL 中 编一程序 输入一个正整数N 将N分解成质因数幂的乘积形式 请知道的一定告诉下额
求初级pascal题目答案:输入正整数n(整型),求n!除以2013的余数(n!=1*2*3*….*n)
C语言.输入一个正整数n,求s=1+2+3+.n的和.如输入50输出1275输入1000输出500500
编写程序,输入正整数N,计算它的阶乘N!(N!=N*(N-1)*…*3*2*1)
编写程序,输入正整数n,计数它的阶乘n!(n!=n×(n-1)×.×3×2×1).