viết chương trình nhập vào số tự nhiên M. In ra màn hình các số nguyên tố từ 1 đến M

0 bình luận về “viết chương trình nhập vào số tự nhiên M. In ra màn hình các số nguyên tố từ 1 đến M”

1. *Chương trình thường

   program so_ngto;

   uses crt;

   var M,i,j,d:integer;

   begin

          clrscr;

          write(‘Nhap M: ‘);  readln(M);

          for i:=2 to n do

                 begin

                        d:=0;

                        for j:=2 to i div 2 do

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

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

                 end;

          readln;

   end.

   *Dùng chương trình con

   program so_ngto;

   uses crt;

   var m,i:integer;

   function ktnt(k:integer):boolean;

   var l:integer;

   begin

          ktnt:=false;

          for l:=2 to trunc(sqrt(k)) do

                 if k mod l=0 then exit;

          ktnt:=true;

   end;

   BEGIN

          clrscr;

          write(‘Nhap M: ‘);  readln(m);

          for i:=2 to n do

                 if ktnt(i) then write(i,’ ‘);

          readln;

   end.

   Bình luận

2. đây bạn

   

   Bình luận