Ước thực sự của số tự nhiên là ước khác 1 và chính nó, 2 số là anh em nếu tổng ước thực sự bằng nhau. Viết chương trình sử dụng chương trình con?
1 câu trả lời
Program BTT;
Uses crt;
Var a,b: longint;
Function TongUTS(a:longint):longint;
Var t,i: longint;
Begin
t:=0;
For i:=2 to a div 2 do
If a mod i = 0 then t:=t+i;
TongUTS:=t;
End;
Begin
Clrscr;
Write('Nhap 2 so bat ki: '); Readln(a,b);
If TongUTS(a)=TongUTS(b) then Write('La hai so anh em')
Else Write('Khong phai hai so anh em');
Readln
End.
