kt n có phải là số nguyên tố hay không xuất ra màn hình cac số nguyên tố từ 2-n và tính tổng của chúng kt n có phải là số hoàn hảo không? xuất ra màn

0 bình luận về “kt n có phải là số nguyên tố hay không xuất ra màn hình cac số nguyên tố từ 2-n và tính tổng của chúng kt n có phải là số hoàn hảo không? xuất ra màn”

1. 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.

   Bình luận

2. 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.

   Bình luận