Cho dãy số nguyên A1,...An (N<= 100 ) và số tự nhiên K. Hãy lập trình +) nhập N , dãy A1,...An và K +) Tính và đưa ra màn hình tổng các số chia hết cho K có trong dãy

hoangtuyeucongchua.vn

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 41 xem

1 trả lời

Thích Trả lời

Trangphamngoc1979

uses crt;
var a:array[1..100]of integer;
i,n,k,t:integer;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<=100) then
begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('k='); readln(k);
t:=0;
for i:=1 to n do
if a[i] mod k=0 then t:=t+a[i];
writeln('tong cac so chia het cho ',k,' trong day la: ',t);
end
else writeln('vui long nhap lai n');
readln;
end.

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

nhieptieusinh

program ct;

uses crt;

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

i,n,k:integer;

S:longint;

begin clrscr;

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

write('Nhap A[',i,']: '); readln(A[i]);

end;

write('Nhap so k: '); readln(k);

for i:=1 to n do

if A[i] mod k=0 then S:=S+A[i];

write('Tong cac so chia het cho k la: ',S);

readln;

end.

Học tốt!

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

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

Mn giải thích giúp em bài này tại sao phải xét 2 trường hợp là =0 và ≥0 với ạ :< Với c/m giúp em CT : f. √g ≥0 <=> ... E cảm ơn rất nhiều :<

IV. Fill in each blank with the simple past tense of the verb from the box. 1. My friends and I __________ swimming yesterday morning. 2. We really __________ the game last Sunday. 3. In 1958, at the age of 17, Pelé__________ his first World Cup. 4. The Canadian hockey team __________ six goals against Switzerland. 5. The home team __________ very well, but they lost the match. 6. My father __________ me how to ride a bike. 7. I __________ a new baseball cap last week. 8. At the age of 17, Messi __________ the youngest official player and goal scorer inthe Spanish La Liga. 9. She has a black belt in karate. She first __________ karate when she was seven. 10. Argentina __________ 1 - 0 to Germany in the final.

Ai vẽ dc nezuko và kirito dc ko. KO DC CHÉP MẠNG NHA.CHO NHÌU ẢNH VÀO. 😆😆

III. Give the correct form of the verbs. 1. How many languages Hoa (speak) ? - Well, two languages. 2. She always (borrow) my bike. 3. My English class (start) at 7.15. 4. Look! Somebody (climb) up the tree. 5. You (like) music? 6. He must (get up) early. 7. Nam (not do) his homework now. 8. My mum is going to (be) here tomorrow. 9. How often you (take) a shower? - I take a shower every day. 10. They (be) staying at home now.

Giải hộ mình nha ai biết bài nào giải bài đấy ạ

Vận dụng sự quan sát, tưởng tưởng, so sánh nhận xét trong văn miêu tả mà em đã được học, hãy hoàn thành các câu sau: a Mặt hồ Gươm gợn sóng........................................... b Dòng sông xanh rì như............................................. c Những ngôi nhà mọc san sát.................................... d Cây phượng già trồng giữa sân trường....................

câu 1: Để cùng cày 1 sào đất, nếu dùng châu hết 2 giờ, dùng máy hết 25 phút hỏi trâu hay máy có công suất nhỏ hơn và nhỏ hơn bao nhiêu. câu 2: 1 thùng cao 1m đựng đầy nước. Tính áp suất của nước lên đáy thùng và lên một điểm cách đáy thùng 0,4m .biết trọng lượng riêng của nước là 10000 N/m khối câu 3: viết công thức tính độ lớn của lực đẩy ácsimet . Nêu tên và đơn vị các đại lượng có mặt trong công thức

Mn giúp mk nha Mai mk nộp rồi Vote 5 sao + cảm ơn

Mọi người ơi giúp em bài 1 và 4 với ạ

Chỉ ra và nêu tác dụng của biện pháp tu từ qua hai câu thơ Trong khoảng trăm năm cần có tớ Sau này muốn thở hả không ai? Giúp em với

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