Pascal语言 1011:求N的所有约数和 用for 控制变量:=表达式 to do,的语句!
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/22 23:18:13
Pascal语言 1011:求N的所有约数和 用for 控制变量:=表达式 to do,的语句!
输入一个整数N,求它的所有约数(不包含N)的和.
输入
整数N(0
输入一个整数N,求它的所有约数(不包含N)的和.
输入
整数N(0
var n,ans,i:longint;
begin
readln(n);
ans:=0;
for i:=1 to n-1 do
if n mod i=0 then inc(ans,i);
writeln(ans);
end.
//优化版:
var n,ans,i:longint;
begin
readln(n);
ans:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then begin
inc(ans,i);
if in div i then inc(ans,n div i);
end;
writeln(ans+1);
end.
begin
readln(n);
ans:=0;
for i:=1 to n-1 do
if n mod i=0 then inc(ans,i);
writeln(ans);
end.
//优化版:
var n,ans,i:longint;
begin
readln(n);
ans:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then begin
inc(ans,i);
if in div i then inc(ans,n div i);
end;
writeln(ans+1);
end.
输入一个自然数,求这个自然数的所有约数之和,用PASCAL语言
用C#语言编写:输入一个正整数n,程序打印出该整数的所有约数(不包括1和该整数本身)使用for循环语句
编程输入一个自然数x,求这个自然数的所有约数(包括1和x本身)之和 pascal语言
一个自然数有十个约数,求符合条件的最小自然数,用PASCAL语言
pascal语言 求n个自然数的最大公约数和最小公倍数
如何求自然数N的约数个数和所有约数的和?
计算式子的值:s=1+2+3+...+100(编程 pascal语言 for语句)
用pascal求后缀表达式的值.
Free Pascal语言.求10个数的最大值和最小值,我们循环语句的作业,帮看下,
用流程图表示求自然数n所有约数的算法
分别用FOR和DO循环语句求1!+2!+···+n!的值
输入一个自然数X,求这个自然数的所有约数之积S.(Pascal)