Hãy viết chương trình nhập vào 1 dãy số bất kỳ .Cho biết dãy số đó có bao nhiêu nguyên tố, có bao nhiêu số lẻ và bao nhiêu số chẵn?

0 bình luận về “Hãy viết chương trình nhập vào 1 dãy số bất kỳ .Cho biết dãy số đó có bao nhiêu nguyên tố, có bao nhiêu số lẻ và bao nhiêu số chẵn?”

1. Var n,d,dc,dl,i: longint;
       A: array[1..100000] of longint;

   Function ngto(a: longint): boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to trunc(sqrt(a)) do
                   If a mod i = 0 then exit(false);
           exit(true);
   End;

   Begin
           Read(n);
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If ngto(A[i]) then inc(d);
                   If A[i] mod 2 = 0 then inc(dc)
                   Else inc(dl);
           End;
           Writeln(d);
           Writeln(dl);
           Write(dc);
           Readln
   End.

   Bình luận