viết chương trình in ra màn hình các số nguyên tố từ 1 đến 30

0 bình luận về “viết chương trình in ra màn hình các số nguyên tố từ 1 đến 30”

1. uses crt;
   var i:longint;
   {—Chuong-trinh-con—}
   function nt(i:longint):boolean;
   var j:longint;
   begin
      j:=2; nt:=true;
      while i mod j<>0 do inc(j);
      if j<>i then nt:=false;
   end;
   {—Chuong-trinh-chinh—}
   begin
   clrscr;
      for i:=2 to 30 do 
         if nt(i) then write(i,’ ‘); writeln;
   readln
   end.

   Bình luận

2. program nguyento;

   uses crt;

   var i,j,d:integer;

   begin

          clrscr;

          for i:=2 to 30 do

                 begin

                        d:=0;

                        for j:=1 to i do

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

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

                 end;

          readln;

   end.

   Bình luận