Hai số nguyên dương được gọi là hữu nghị nếu số này bằng tổng các ước số thực sự của số kia và ngược lại (ước thực sự của một số nguyên dương là ước nhỏ hơn ước số đó, ví dụ 6 có ước thực sự là 1,2,3).Hãy tìm các cặp số hữu nghị từ 100 tới 1000. Kết quả: đưa ra màn hình, mỗi cặp số tìm được ghi trên một dòng, số bé hơn viết trước, các số cách nhau tối thiểu mộ dấu cách.

#include <iostream>
using namespace std;

int sumOfDivisors(int n) {
    int sum = 0;
    for (int i = 1; i <= n / 2; i++) {
        if (n % i == 0) {
            sum += i;
        }
    }
    return sum;
}

int main() {
    for (int i = 100; i <= 1000; i++) {
        int sum1 = sumOfDivisors(i);
        if (sum1 > i && sum1 <= 1000) {
            int sum2 = sumOfDivisors(sum1);
            if (sum2 == i) {
                cout << i << " " << sum1 << endl;
            }
        }
    }
    return 0;
}

uses crt;
var i,j: int64;
Function sum(n: int64): int64;
var s,i: int64;
begin
    s:=1;
    for i:=2 to n-1 do if n mod i = 0 then s:=s+i;
    sum:=s;
end;
begin
clrscr;
    for i:=100 to 1000 do for j:=i+1 to 1000 do if (sum(i)=j) and (i=sum(j)) then writeln(i,' - ',j);
end.