Bai211: Viết chương trình đọc vào n số nguyên (n < 1000). Đếm xem có bao nhiêu số nguyên tố? ( Su dung ham de kiem tra); Xuat ra file. VD : INPUT 3 3

0 bình luận về “Bai211: Viết chương trình đọc vào n số nguyên (n < 1000). Đếm xem có bao nhiêu số nguyên tố? ( Su dung ham de kiem tra); Xuat ra file. VD : INPUT 3 3”

1. Const Fi=’BT.INP’;
         Fo=’BT.OUT’;
   Var f,g: text;
       A: array[1..1000] 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
           Assign(f,Fi); Reset(f);
           Assign(g,Fo); Rewrite(g);
           Read(f,n);
           da:=0; dd:=0;
           For i:=1 to n do
           Begin
                   Read(f,A[i]);
                   If ngto(A[i]) then inc(d);
           End;
           Write(g,d);
           Close(f);
           Close(g);
   End.

   Bình luận

2. Write (g,d)

   Close(f)

   Close (g)

   Bình luận