Ướ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?

0 bình luận về “Ướ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. 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.

   Bình luận