viết chương trình in ra tất cả các số nguyên tố từ 2 đến n với n được nhập từ bàn phím

0 bình luận về “viết chương trình in ra tất cả các số nguyên tố từ 2 đến n với n được nhập từ bàn phím”

1. Var i, n: word;

   Function isNt(x: word): boolean;

      Var j: word;

      Begin

          For j:=2 to trunc(sqrt(x))

                  do if (x mod j =0)

                         Then exit(false);

          Exit(true);

      End;

   Begin

       Write(‘n = ‘); readln(n);

       For i:=2 to n do if isNt(i)=true

             Then write(i, ‘ ‘);

       Readln

   End.

    

   Bình luận

2. program nguyen_to;

   uses crt;

   var n,i,d,j: integer;

   Begin

            clrscr;

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

            write(‘Cac so nguyen to tu 2 den ‘,n,’: ‘);

            for i:=2 to n 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