Nhập vào một dãy số kiểm tra có bao nhiêu số nguyên tố
Phụ huynh gặp khó khăn cân bằng công việc và dạy con chương trình mới. Hãy để dịch vụ gia sư của chúng tôi giúp bạn giảm bớt áp lực, cung cấp kiến thức chuyên sâu và hỗ trợ con bạn học tập hiệu quả.
Program BTT;
Uses crt;
Var A: array[1..100] 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
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
d:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘); Readln(A[i]);
If ngto(A[i]) then inc(d);
End;
Write(‘Co ‘,d,’ so nguyen to’);
Readln
End.