cho một dãy số nguyên, mỗi số trên một dòng được ghi trong tệp ‘NGUYEN.TXT’. Viết chương trình tạo tệp ‘NGUYENTO.TXT’ chứa các số nguyên tố có trong t

0 bình luận về “cho một dãy số nguyên, mỗi số trên một dòng được ghi trong tệp ‘NGUYEN.TXT’. Viết chương trình tạo tệp ‘NGUYENTO.TXT’ chứa các số nguyên tố có trong t”

1. uses crt;
   var f:text; n,i:longint; a:Array[1..1000000]of longint;
   function nt(a:longint):boolean;
   var i:longint;
   begin
      i:=2;
      while(a>1)and(a mod i<>0)do inc(i);
      nt:=i=a;
   end;
   begin
   clrscr;
      assign(f,’NGUYEN.TXT’);reset(f);
         readln(f,n);
         for i:=1 to n do readln(f,a[i]);
      close(f);
      assign(f,’NGUYENTO.TXT’);rewrite(f);
         for i:=1 to n do
            if nt(a[i]) then write(f,a[i],’ ‘);
      close(f);
   end.

   Bình luận