Viết chương trình nhập từ bàn phím số nguyên dương N (N ≤100) và dãy A gồm N số nguyên A1, A2 ...AN có giá trị tuyệt đối không lớn hơn 1000. Hãy đưa ra những thông tin sau:
a) Số lượng số chẵn và số lượng số lẻ
b) số lượng số nguyên tố trong dãy
Quảng cáo
1 câu trả lời 6951
a) Duyệt toàn bộ mảng ,nếu số nào chia hết cho 2 thì là số chẵn còn lại là số lẻ. Ta dùng một biến để đếm số chẵn . Sau đó lấy số phần tử trừ đi số phần tử chẵn.
program csc;
uses crt;
var a:array[1..100] of integer;
i,d,n:integer;
begin
clrscr;
write('nhap so phan tu cua day ');
readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0
then
d:=d+1;
writeln('so so chan la ',d,' so so le la ',n-d);
readkey;
end.
b) Số lượng số nguyên tố trong dãy
Duyệt toàn bộ các số trong dãy với mỗi số ta kiểm tra xem số này có chia hết số nào từ 2 đến a[i]-1 của nó không ?. Nếu không thì kết luận là số nguyên tố.
program csc;
uses crt;
var a:array[1..100] of integer;
i,d,n,j:integer;
t:boolean;
begin
clrscr;
write('nhap so phan tu cua day ');
readln(n);
d:=0;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
begin
t:=true;
for j:=2 to a[i]-1 do
begin
if (a[i] mod j=0) and (a[i]<>2)
then
begin
t:=false;
break;
end;
end;
if t=true
then
d:=d+1;
end;
writeln('so cac so nguyen to trong day la ',d);
readkey;
end.
Kết quả:
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
2235 điểm
-
I miss you
2045 điểm
-
𓇼 ⋆.˚annabelle⋆.˚ 𓇼 1260 điểm
-
Judy Hopps
1100 điểm
-
bích hồng nguyễn 760 điểm
-
`color{red}text{HuyTùng`
530 điểm
-
zai đẹp siu
490 điểm
-
lọ hà nội
440 điểm
-
dũng ngon hơn ok
405 điểm
-
Haruto[pad] 395 điểm
-
chê ng tốt chốt ng tồi.
365 điểm
-
n.t.an
300 điểm
-
⋅˚₊‧ ଳ⋆.࿔*:･𝙇ệ_ဗီူ_𝙥𝙝𝙪_ဗီူ_𝙣𝙝â𝙣⋅˚₊‧ ଳ⋆.࿔*:･
245 điểm
-
minhxinhquama
190 điểm
-
✿ 𝓝𝓪̂́𝓶 🍄
180 điểm
Rút gọn
Bài viết mới nhất Lớp 11
-
3 năm trước3535
-
3 năm trước3376
