1樓：網友
根據數學定律，要滿足上述條件，其實就是求2,3,5的公倍數減1beginwriteln(2*3*4-1);
writeln(2*3*4*2-1);
writeln(2*3*4*3-1);
writeln(2*3*4*4-1);
writeln(2*3*4*5-1);
writeln(2*3*4*6-1);
writeln(2*3*4*7-1);
writeln(2*3*4*8-1);
writeln(2*3*4*9-1);
writeln(2*3*4*10-1);
end.
pascal程式設計 程式設計輸出10000以內的所有完全數。 要有過程，和分析。
2樓：二十二翰林
你好，這道題目這樣思考：
所為完全數，就是這個數除了它本身的約數之和也等於這個數，比如說6的約數有，而1+2+3=6，所以6是個完全數。
這題，我們先列舉出1到10000中的所有數字，逐一找出這個數的全部約數，把他們加起來，最後看看約束的總和是否等於這個數便可以了。
程式如下：program lxc;
vari,j,k:integer;
begin //主程式。
for i:=1 to 10000 do //從1到10000列舉 i
begin //開始逐一處理這10000個數。
k:=0; //k表示約數之和，初始化為0。
for j:=1 to i div2 do //因為乙個數的約數肯定小於這個數，而且肯定小於或等於這個數的一半，所以現在要列舉所有比i小的數就是1到 i div 2。
if i mod j = 0 then //當i mod j=0時，意味著j可以被i整除，表明這個j是i的約數。
k:=k+j; //所以，把k加上這個約數。
if k=i then writeln(i); //最後，找到所有約數並將它們的值全部加進k後，當k和i相等時，i是完全數，那麼就輸出i
end; //列舉完畢。
end. //收工。
執行結果：628
謝謝，祝你好運！
3樓：網友
完全數指的是數的因子之和等於它本身的數。
var i,j,s:integer;
beginfor i:=1 to 10000 do
begins:=0;
for j:=1 to i div 2 doif i mod j =0 then s:=s+j;
if s=i then writeln(i);
end;end.
4樓：匿名使用者
vari,s,j:longint; 定義begin
for i:=3 to 10000 do 3到10000每個數找一次。
beginfor j:=2 to i div 2 do 試除if i mod j=0 then 如果是它的因子s:=s+j; 加起來。
if s=i then 最後判斷如果因子和等於本身就輸出writeln(i);
s:=0; 計數的重新設定為0
end;end.
按動物的體重由小到大給他們排排隊企鵝43 2千克熊貓56 5千克大象3 20噸
3.20噸 3200千克，199.8克 0.1998千克 因為0.1998千克 9.8千克 43.2千克 56.5千克 3200千克，所以松鼠199.8克 小狗9.8千克 企鵝43.2千克 熊貓56.5千克 大象3.20噸 故答案為 松鼠199.8克 小狗9.8千克 企鵝43.2千克 熊貓56.5千...
pascal程式設計的語言，Pascal語言是什麼？
program 程式 const 常量 type 型別 var 變數 function 函式 procedure 過程 begin 開始 end 結束 if 如果 then 那麼 else 否則 case of 分支 for to do 計數迴圈 while 當迴圈 repeat 迴圈 until ...
C 程式設計中快速排序預設的是從小到大，怎樣才能用快速排序達到從大到小排序
把裡面比較和交換的變數 倒過來 可以過載運算子，或者新定義一個函式 include bool cmp int a,int b return a b int main int a 5 std sort a,a 5,cmp for int i 0 i 5 i printf d n a i return ...