Hãy in ra màn hình các số nguyêu tố từ 1 đến 100

0 bình luận về “Hãy in ra màn hình các số nguyêu tố từ 1 đến 100”

1. program songuyento;

   uses crt;

   var i,d,j:byte;

   begin

        clrscr;

      writeln(‘Cac so nguyen to tu 1 den 100 la: ‘);

      for i:=2 to 100 do

          begin

             d:=2;

             for j:=2 to i div 2 do

                if i div j=0 then d:=d+1;

             if d=0 then write(i,’ ‘);

          end;

      readln;

   end.

      

   Bình luận

2. program phuongt;

   uses crt;

     var d, i, j: integer;

   begin 

              clrscr;

              writeln(‘Cac so nguyen to tu 1 den 100 la: ‘);

              for i:=2 to 100 do

              begin

                         d:=0;

                         for j:=1 to i do if i mod j = 0 then d:=d+1;

                         if d=2 then write(j:2);

              end;

              readln

   end.

   Bình luận