Bài 3: Viết chương trình từ bàn phím số nguyên dương n (n<=100) và dãy A gồm n phần tử số nguyên A1, A2……An. a/ Hãy đếm xem trong dãy có bao nhiêu số nguyên tố trong dãy? b/ Hãy tính tổng các số hoàn hảo có mặt trong dãy số? Yêu cầu: Viết chương trình con nhập dãy số A từ bàn

huong.doan2052001

2 năm trước

Bài 3: Viết chương trình từ bàn phím số nguyên dương n (n<=100) và dãy A gồm n phần tử số nguyên A1, A2……An. a/ Hãy đếm xem trong dãy có bao nhiêu số nguyên tố trong dãy? b/ Hãy tính tổng các số hoàn hảo có mặt trong dãy số? Yêu cầu: Viết chương trình con nhập dãy số A từ bàn phím.

Loga Sinh Học lớp 12

0 lượt thích 23 xem

1 trả lời

Thích Trả lời

nhdiem2912

Uases crt;

var a:array[1..100]of integers

i,n,tc,tl,t:integer;

begiim

clrscr,

write('Nhap n='/); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

tc:=0;

tl:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then tc:=tc+a[i]

else tl:=tl+a[i];

end;

writeln('Tong cac so chan la: ',tc);

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('Tong cua day so la: ',t);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

gala2020

Uses crt;

var a: array [1..100] of integer;

i,n,tc,tl,t:integer;

begin

clrscr,

write('Nhap n='/); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

tc:=0;

tl:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then tc:=tc+a[i]

else tl:=tl+a[i];

end;

writeln('Tong cac so chan la: ',tc);

t:= 0;

for i:= 1 to n do

t:= t+a [i];

writeln('Tong cua day so la: ',t);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

^ : mũ 2 Cho biểu thức B= 3(x+1) (x-1)+(x-1)^ - (x+1)^ a/ Rút gọn B b/ T ính giá trị của B với x =2

The eruption of volcanoes is always.........(disaster) Tìm lỗi sai: -I'm please that you are working hard -mrs.ha suggests getting a plumber check cracks in the pipes

chứng tỏ S=1/2.2+1/2.2.2+1/2.2.2.2+...+1/2.mũ 100<1

Cho tam giác ABC vuông tại A lấy điểm E có AB<AC.

Mọi người ơi mọi người giải giúp e 3 bài này với ạ e đang cần gấp trong hôm nay

Vẽ anime or edit hoặc eff gacha NL: oc mới của me nek, nhận xét giúp me zới :> oc phèn Hóng ~

Mọi người giúp mk với ạ Mọi người giúp mk làm trắc nghiệm và tự luận nha Cảm ơn mọi người

Bài 2: Số hoàn hảo là số có tổng các ước ( trừ số đó) bằng chính nó. Ví dụ: 6 là số hoàn hảo vì 6=1+2+3. Hãy viết chương trình con kiểm tra 1 số nguyên có là số hoàn hảo hay không? Yêu cầu: Viết chương trình con nhập dãy số A từ bàn phím.

Câu 2 đoạn trích miêu tả nhân vật phương định trong hoàn cảnh nào? Câu 3 chỉ ra 3 phép liên kết được sử dụng trong đoạn trích trên ? Câu 4 chỉ ra những chi tiết có liên quan đến nhan đề “ những ngôi sao xa xôi”? em hiểu nhan đề này như thế nào ? giúp đi 40 điểm lận đó nha ae nhanh nhanh

Dạ mình cần gấp .mn giúp mình với a trong đoạn trích trên su dung phép liên kết câu là phép thế “ tp này “ ở câu 3 thế cho” tp bao dung “ câu 1 đúng không ạ?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến