| Bài tập 7.6: (Tin học trẻ toàn quốc lần I - 1995)
Hai số tự nhiên A, B được coi là hữu nghị nếu như số này bằng tổng các ước số của số kia và ngược lại. Lập trình tìm và chiếu lên màn hình các cặp số hữu nghị trong phạm vi từ 1 đến 10000. (Lưu ý: số 1 được coi là ước số của mọi số còn mỗi số không được coi là ước số của chính nó).
Thuật toán:
-
Cài đặt:
Program Cap_so_huu_nghi;
Var a,b,n,i:integer;
Function TU(a:integer):integer;
Var Tg,i:integer;
Begin
Tg:=0;
For i:=1 to a-1 do if (a mod i = 0) then Tg:=Tg + i;
TU:=Tg;
End;
Begin
Write('Nhap so n: ');Readln(n);
For a:=1 to n do Begin b:=TU(a); if TU(b)=a then Writeln(a,'-',b) end;
Readln;
End.
|
|
Nhận xét: Các số hoàn chỉnh luôn là hữu nghị của chính nó.
Chia sẻ với bạn bè của bạn: |
