Tin học Pascal đội tuyển!

Nguyễn Thành Long vplt said:

Đề: hai số tự nhiên a,b được gọi là hữu nghị nếu như số này bằng tổng các ước nguyên dương của số kia ( ước không kể chính nó) và ngược lại. Hãy tìm tất cả các cặp số từ 2 đến N thỏa mãn điều kiện a<=b . Có bao nhiêu cặp như vậy?

Mã:

Function tu(x:int64):int64;
var i,dk:longint;
Begin
    tu:=1;
    dk:=trunc(sqrt(x));
    For i:=2 to dk do
      Begin
        If (x mod i=0) then
        tu:=tu+i+(x mod i);
      End;
    If (frac(sqrt(x))=0) then tu:=tu-dk;
exit(tu);
End;
Var i,n,x:longint;
    dem:int64;
Begin
    Assign(input,'huunghi.inp');reset(input);
    Assign(output,'huunghi.out');rewrite(output);
    Read(n);
    dem:=0;
    For i:=2 to n do
       Begin
           x:=tu(i);
           If (tu(x)=i) then
           dem:=dem+1;
       End;
       Write(dem);
End.

Mọi người sửa code giúp em xem sao ( dem luôn ra 0 ạ?)
Cảm ơn!

Bấm để xem đầy đủ nội dung ...

Var
       i,j,n,d:integer;
       Fi,fo:Text;
       Function uoc(var a:integer):Integer;
       Var
           k,t:integer;
       Begin
           t:=0;
           For k:=1 to a div 2  do
                if a mod k=0 then t:=t+k;
           uoc:=t;
       end;
Begin
        Assign(fi,'huunghi.inp');reset(fi);
        Assign(fo,'huunghi.out');rewrite(fo);
        Readln(fi,n);
        For i:=2 to n do
        Begin
             j:=uoc(i);
             if (j>i) and (uoc(j)=i) then d:=d+1;
        end;
        Write(fo,d);
     readln
End.

Nguyễn Thành Long vplt said:

Đề: hai số tự nhiên a,b được gọi là hữu nghị nếu như số này bằng tổng các ước nguyên dương của số kia ( ước không kể chính nó) và ngược lại. Hãy tìm tất cả các cặp số từ 2 đến N thỏa mãn điều kiện a<=b . Có bao nhiêu cặp như vậy?

Mã:

Function tu(x:int64):int64;
var i,dk:longint;
Begin
    tu:=1;
    dk:=trunc(sqrt(x));
    For i:=2 to dk do
      Begin
        If (x mod i=0) then
        tu:=tu+i+(x mod i);
      End;
    If (frac(sqrt(x))=0) then tu:=tu-dk;
exit(tu);
End;
Var i,n,x:longint;
    dem:int64;
Begin
    Assign(input,'huunghi.inp');reset(input);
    Assign(output,'huunghi.out');rewrite(output);
    Read(n);
    dem:=0;
    For i:=2 to n do
       Begin
           x:=tu(i);
           If (tu(x)=i) then
           dem:=dem+1;
       End;
       Write(dem);
End.

Mọi người sửa code giúp em xem sao ( dem luôn ra 0 ạ?)
Cảm ơn!

Bấm để xem đầy đủ nội dung ...