Xuất ra màn hình các số hoàn hảo chia hết cho cả 3 và 9: Cái này giới hạn từ bao nhiêu đến bao nhiêu thế nhỉ? Có gì bạn xem kĩ lại đề rồi mình sẽ bổ sung vào phần trả lời nhé!

------------

Program BTT;
Uses crt;
Var n,i,t: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to a div 2 do
                If a mod i = 0 then exit(false);
                                    exit(true);
End;

Function shh(b: longint): boolean;
Var i,s: longint;
Begin
        s:=0;
        For i:=1 to b div 2 do
                If b mod i = 0 then s:=s+i;
        If s=b then exit(true);
                    exit(false);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);

        t:=0;
        If ngto(n) then Write(n,' la so nguyen to')
        Else Write(n,' khong phai la so nguyen to');
        Writeln;
        If shh(n) then Write(n,' la so hoan hao')
        Else Write(n,' khong phai la so hoan hao');
        Writeln;
        Write('Cac so nguyen to tu 2 den n la: ');
        For i:=2 to n do
                If ngto(i) then

                Begin

                        Write(i,' ');

                       t:=t+i;

               End;

       Writeln;

       Write('Tong cac so nguyen to la: ',t);

        Readln;

End.

uses crt;
var n,i,kt,t,j,kt1,t1,t2:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>1 then
   begin
      kt:=0;
      for i:=2 to trunc(sqrt(n)) do
        if n mod i=0 then kt:=1;
      if kt=0 then writeln(n,' la so nguyen to')
      else writeln(n,' khong la so nguyen to');
   end
else writeln(n,' khong la so nguyen to');
writeln('cac so nguyen to trong khoang tu 2 toi ',n,' la: ');
t:=0;
for i:=2 to n do
  begin
     kt1:=0;
     for j:=2 to i-1 do
       if i mod j=0 then kt1:=1;
     if kt1=0 then
        begin
           write(i:4);
           t:=t+i;
        end;
  end;
writeln;
writeln('tong cua cac so nguyen to trong khoang tu 2 toi ',n,' la:',t);
{-------------------------ktra-so-hoan-hao-------------------------}
t1:=0;
for i:=1 to n-1 do
  if n mod i=0 then t1:=t1+i;
if t1=n then writeln(n,' la so hoan hao');
writeln('cac so hoan hao chia het cho 3 va 9 la: ');
for i:=1 to n do
  begin
     t2:=0;
     for j:=1 to i-1 do
       if i mod j=0 then t2:=t2+i;
     if (t2=i) and (i mod 9=0) then write(i:4);
  end;
readln;
end.