viết chương trình dãy số nguyên n là phần tử (n<= 1000) . đếm xem có bao nhiêu phần tử là số nguyên tố

0 bình luận về “viết chương trình dãy số nguyên n là phần tử (n<= 1000) . đếm xem có bao nhiêu phần tử là số nguyên tố”

1. var a: array[1..100] of integer;

         n, i, d: byte;

   Function isNt(x: word): boolean;

      Var j: word;

      Begin

          For j:=2 to x-1 do if (x mod j = 0)

                  Then exit(false);

          Exit(true);

      End;

   Begin

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

       D:=0;

       For i:=1 to n do

          Begin

             Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

             If a[i]>1 then if isNt(a[i])=true

                   Then inc(d);

          End;

       Write(‘co ‘, d, ‘ so nguyen to’);

       Readln

   End.

   {GM Kiet}

   Bình luận

2. #A_Hy

   var a: array[1..100] of integer;

         n, i, d: byte;

   Function isNt(x: word): boolean;

      Var j: word;

      Begin

          For j:=2 to x-1 do if (x mod j = 0)

                  Then exit(false);

          Exit(true);

      End;

   Begin

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

   D:=0;

   For i:=1 to n do

   Begin

   Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

   If a[i]>1 then if isNt(a[i])=true

   Then inc(d);

   End;

   Write(‘co’,d,’ so nguyen to’);

   Readln

   End.

   Bình luận