Nhập vào một dãy số kiểm tra có bao nhiêu số nguyên tố

Question

Nhập vào một dãy số kiểm tra có bao nhiêu số nguyên tố

in progress 0
Skylar 2 tuần 2021-08-28T06:02:38+00:00 1 Answers 4 views 0

Answers ( )

    0
    2021-08-28T06:04:12+00:00

    Program BTT;
    Uses crt;
    Var A: array[1..100] of longint;
        n,i,d: longint;
    Function ngto(a: longint): boolean;
    Var i: longint;
    Begin
            If a<2 then exit(false);
            For i:=2 to a div 2 do
                    If a mod i = 0 then exit(false);
                                        exit(true);
    End;
    Begin
            Clrscr;
            Write(‘Nhap n: ‘); Readln(n);
            d:=0;
            For i:=1 to n do
            Begin
                    Write(‘A[‘,i,’] = ‘); Readln(A[i]);
                    If ngto(A[i]) then inc(d);
            End;
            Write(‘Co ‘,d,’ so nguyen to’);
            Readln
    End. 

Leave an answer

Browse

35:5x4+1-9:3 = ? ( )