uses crt; var i,n,d: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; write('Nhap n: ');readln(n); for i:=1 to n do begin write('A[',i,']= ');readln(a[i]); if nt(a[i]) then inc(d); end; writeln('Day co ',d,' so nguyen to'); readln end.
uses crt; var a:array[1..1000]of longint; n,i,count:longint; function isPrimeNumber(n:longint):boolean; var i:longint; begin if n<2 then exit(false); for i:=2 to trunc(sqrt(n)) do if n mod i=0 then exit(false); exit(true); end; begin clrscr; readln(n); for i:=1 to n do begin read(a[i]); if isPrimeNumber(a[i]) then inc(count); end; write(count); readln; readln; end.
