输入一个自然数X,求这个自然数的所有约数之积S.（Pascal)

来源：学生作业帮助网编辑：作业帮时间：2024/05/08 11:40:03

输入一个自然数X,求这个自然数的所有约数之积S.（Pascal)
输入一个自然数X,求这个自然数的所有约数之积S.（Pascal)

输入一个自然数X,求这个自然数的所有约数之积S.（Pascal)
program yueshuhe;
var n,i,s:longint;
begin
writeln('input n:');
readln(n);
s:=1;
for i:=2 to n do
begin
if n mod i=0 then s:=s*i;
end;
write('s=',s);
readln
end.
话说这个不是已经给你解决了吗...咋又发上来了..
还是说你问我之前已经问了

输入一个自然数X,求这个自然数的所有约数之积S.（Pascal) 编程输入一个自然数x,求这个自然数的所有约数（包括1和x本身）之和 pascal语言输入一个自然数,求这个自然数的所有约数之和,用PASCAL语言求帮做VB程序分支循环的综合应用一、输入一个自然数x,求这个自然数的所有约数.本题的关键是求出这个数的所有约数.若x除以y的余数为0,则y就是x的约数.所以只要从1开始到x为止,逐个去试, 一个小于200的自然数,其最小的三个约数之和是31,求这个自然数? 有一个自然数,它的最大两个约数之和是126,求这个自然数一个自然数的最大两个约数之和是123,求这个自然数? 一个自然数的最大两个约数之和是123,求这个自然数?要算式! 一个自然数,最小两个约数的和是3,最大两个约数的和是60,求这个自然数? 用流程图表示求自然数n所有约数的算法一个自然数的最大约数是最小约数的11倍,这个自然数是（) 一个自然数的最大约数是最小约数的11倍,这个自然数是（）把一个自然数的约数从小到大排列,前两个约数的和为3,最后两个约数的和是252,求这个自然数. 1是所有自然数的约数吗一个自然数的最大公约数是最小公约数的11倍,求这个自然数?打错了，先修订，一个自然数的最大约数是最小约数的11倍，求这个自然数？如何求自然数N的约数个数和所有约数的和? 1.求240的所有约数的和2.一个自然数,有10个不同的约数,它的质因数是3或5.这个自然数最大是多少?3.恰有12个不同的约数的自然数最小是多少?这些题目我不太懂,我算出的答案是 744 1953125 60 现在有一个自然数,它的最小的两个约数之和是,最大的两个约数之和是100,求这个自然数.