Viết phương trình nhập vào 1 dãy gồm n số nguyên (n<= 250 a[i]<= 300) a. In ra màn hình dãy vừa nhập b. Đếm số lượng số nguyên tố trong dãy Mọ

0 bình luận về “Viết phương trình nhập vào 1 dãy gồm n số nguyên (n<= 250 a[i]<= 300) a. In ra màn hình dãy vừa nhập b. Đếm số lượng số nguyên tố trong dãy Mọ”

1. uses crt;
   var n,i,d:byte; a:array[1..250]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;
      write(‘Nhap n: ‘);readln(n); 
      d:=0;
      for i:=1 to n Do 
         begin
            write(‘a[‘,i,’]=’);readln(a[i]);
            if nt(a[i]) then inc(d); 
         end;
      write(‘Day vua nhap: ‘);
      for i:=1 to n do write(a[i],’ ‘);
      writeln;
      writeln(‘Co ‘,d,’ so nguyen to trong day’);
   readln;
   end.

   Bình luận