YOMEDIA
NONE

Viết chương trình nhập 1 mảng số nguyên dương hãy đếm trong mảng có bao nhiêu số nguyên tố

Viết chương trình nhập 1 mảng số nguyên dương hãy đếm trong mảng có bao nhiêu số nguyên tố
Theo dõi Vi phạm
ADSENSE

Trả lời (1)

  • Hồ Văn Tiến Mạnh

    program xyz;

    uses crt;

    var x: array [1..1000000] of longint;

         dem: integer; {đây là biến chứa đáp án bài toán}

         n:longint;

    Function prime( N : Longint) : Boolean;

    Var flag : Boolean;

          i : Longint;

    Begin

     flag := True; 

     if (N mod 2=0) then exit(false);

     For i := 2 to N-1 do 

      If ( N mod i = 0 ) then  flag:=false;

     prime:=flag;

    End;

    {Với hàm này chúng ta có thể biết được một số có là số nguyên tố hay không}

    Begin {Chương trình chính}

       dem:=0;

      readln(n); {Nhập vào số phần tử của mảng biến n này khác với biến n trong hàm prime()}

      for i:= 1 to n do 

       if (prime(i)) then dem:=dem+1;

      writeln(dem);

      readln;

    End.

      

      bởi Hồ Văn Tiến Mạnh 20/04/2020
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 11

 

YOMEDIA
AANETWORK
OFF