Viết chương trình nhập số N. in ra màn hình các số nguyên tố từ 1->N.nhanh

0 bình luận về “Viết chương trình nhập số N. in ra màn hình các số nguyên tố từ 1->N.nhanh”

1. program oken;
   uses crt;
   var n,i,j,dem: longint;
   begin
       clrscr;
       write(‘Nhap n: ‘); readln(n);
       write(‘Cac so nguyen to: ‘);
       for i:=1 to n do
           begin
               dem:=0;
               for j:=2 to (i div 2) do
                   if (i mod j=0) then
                       dem:=dem+1;
               if dem=0 then
                   write(i,’ ‘);
           end;
       readln;
   end.

   Bình luận

2. uses crt;
   var i,j,n:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      write(‘Cac so nguyen to tu 1 toi n:’);
      for i:=2 to n do
         begin
            j:=2;
            while i mod j<>0 do inc(j);
            if j=i then write(i,’;’);
         end;
   readln
   end.

   /////////////////////////////

   Test:

   Bình luận