1樓：匿名使用者
給你核心**吧,這是判斷兩個數是否是親密數對的函式:
function main(a,b : longint) : boolean;
vari,s1,s2 : longint;
begin
if (a = b) then
exit(false);
s1 := 0;
s2 := 0;
for i := 1 to a-1 do
if (a mod i) = 0 theninc(s1,i);
for i := 1 to b-1 do
if (b mod i) = 0 theninc(s2,i);
if (s1 = b)and(s2 = a) thenexit(true);
exit(false);
end;
2樓：匿名使用者
var a,b,tota,totb,i:longint;
begin
readln(a,b);
tota:=0;totb:=0;
for i:=1 to trunc(sqrt(a)) dobegin
if a mod i=0 then inc(tota,i);
if a mod (a div i)=0 then inc(tota,a div i);
if i*i=a then dec(tota,i);
end;
for i:=1 to trunc(sqrt(b)) dobegin
if b mod i=0 then inc(totb,i);
if b mod (b div i)=0 then inc(totb,b div i);
if i*i=b then dec(totb,i);
end;
if(tota=b)and(totb=a)then writeln('yes') else writeln('no');
end.
3樓：匿名使用者
vari,n,m,t,tt:longint;
begin
read(n,m);
tt:=0;
t:=0;
for i:=1 to n-1 do
if n mod i=0 then t:=t+i;
for i:=1 to m-1 do
if m mod i=0 then tt:=tt+i;
if (t=m)and(tt=n) then write('yes') else write('no');
end.
求解一道VB題目,求解一道VB題目
答案是copyc.輸入10000個數值,計算平均數,適合採用迴圈結構演算法。a。判斷乙個證書是否為偶數,解決該問題僅需一步判斷,也許需要一步賦值,沒有多次重複的步驟,不適合採用迴圈結構演算法。b。輸入乙個圓的半徑,計算面積和周長。輸入資料 計算面積,這三個內容都是乙個語句就可以完成的,沒有多次重複的...
一道化學題目，一道化學題目
除了第一樓回答是213之外。氮氣的保護作用主要是氣墊船。和食品填充氣。燈泡裡面一般是真空或者稀有氣體氮氣也有可能。霓虹燈裡的一定是稀有氣體。就這樣 好吧。初中生學藝不精，突然覺得c也有可能！能導電的一般是有機物，無機非金屬有點難度。單質矽屬於新型無機非金屬材料。雖然矽單質不是無機物，但無機化學要研究...
問一道會計題目，問一道會計題目
在採用應付稅款法進行所得稅會計核算時，應按稅法規定對本期稅前會計利潤進行納稅調整。核算時需要設定 所得稅 和 應交稅金 應交所得稅 賬戶。因不需要核算時間性差異對未來所得稅的影響金額，故不需要設定 遞延稅款 賬戶。企業按應納稅所得額計算的應交所得稅，借記 所得稅 賬戶，貸記 應交稅金 應交所得稅 賬...