Viết chương trình nhập vào 1 dãy các số nguyên từ bàn phím và đếm xem dãy số đó có bao nhiêu số nguyên tố

Question

minhguyrttuanh · Answer

ch&uacute;c bạn học tốt

tuminh2 · Answer

program dem_nguyento;

uses crt;

var A:array[1..1000] of integer;

n,i,j,d,du:integer;

begin

clrscr;

write(‘Nhap so luong phan tu: ‘); readln(n);

d:=0;

for i:=1 to n do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

if A[i]>=2 then

begin

du:=0;

for j:=1 to A[i] do

if A[i] mod j=0 then du:=du+1;

if du=2 then d:=d+1;

end;

write(‘Co ‘,d,’ so nguyen to’);

readln;

end.

0 bình luận về “Viết chương trình nhập vào 1 dãy các số nguyên từ bàn phím và đếm xem dãy số đó có bao nhiêu số nguyên tố”