cho dãy số nguyên gồm 20 phần tử nhập từ bàn phím. viết chương trình thực hiên các yêu cầu sau: 1) đếm số lượng phần tử của dãy là các số nguyên tố
1 câu trả lời
program bai_giai;
uses crt;
var a:array[1..20]of real;i,dem:longint;
function NT(b:longint):boolean;
var dem,j:longint;
begin
d:=0;
for j:=1 to b do if(b mod i=0)then inc(d);
NT:=dem=2;
end;
begin
clrscr;
dem:=0;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if(NT(a[i])) then inc(dem);
end;
write('co ',dem,' so nguyen to trong day');
readln
end.
Câu hỏi trong lớp
Xem thêm
