Viết chương trình nhập vào dãy số nguyên từ bàn phím in dãy số vừa nhập ra màn hình tính tổng các dãy số chẵn chia hết cho 3 và in kết quả ra màn hình Giúp mik vs

197071858545306

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 31 xem

1 trả lời

Thích Trả lời

thaothien

uese crt;

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

i,n,s: integer;

begin

clrscr;

writeln('Nhap so phan tu day:'); readln(n);

for i:= 1to n do begin

writeln('Nhap so thu',i,':'); readln(a[i]);

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:4);

for i:=1 to n do

if a[i] mod 3=0 then s:=s+a[i];

Writeln('Tong cac so chia het cho 3 la:',s);

readln;

end.

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

linh28061606

program ct;

uses crt;

var i,n,s:integer;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

writeln('day so vua nhap la');

for i:=1 to n do

write(A[i],' ');

s:=0;

for i:=1 to n do

if (A[i] mod 2=0) and (A[i] mod 3=0) then s:=s+A[i];

writeln('tong la:',s);

readln

end.

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

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

Thế nào là tôn giáo . Thế nào là mê tín dị đoan . Cho ví dụ Bài tập tình huống : Thắp hương khấn vái trước bàn thờ tổ tiên và đi lễ chùa cầu nguyện ; Theo em ,đó có phải là việc làm mê tín dị đoan không ? Vì sao ?

Tình huống 1: Có một bạn học sinh thường xuyên đi học muộn và trốn học. Một hôm bạn học sinh đó gây sự với một bạn trong lớp rồi trốn học. Thầy cô biết, nhờ bạn lớp trưởng viết thư gửi về cho bố mẹ bạn học sinh đó. Trên đường đi, bạn học sinh đó liền xuất hiện chặn xe bạn lớp trưởng lại; bóc thư đọc rồi nhét vào túi. Hỏi bạn đó vi phạm những luật gì? Tình huống 2: Có hai bạn ở cạnh nhà nhau. Hai bạn nghi ngờ nhau, nói xấu nhau. Một hôm bạn kia chửi rủa và nhờ anh trai sang đánh nhà đánh bạn ấy. Hỏi cách xử lí của bạn kia có đúng không? Làm giúp mình tình huống nào cũng được ạ, mình thi rồi :(((

Bố hơn con 60 tuổi sau 3 năm nữa tuổi bố gấp 5 lần tuổi con tính tuổi mỗi người hiện nay

Thừa số thứ nhất là 5.Thừa số thứ hai là số lẻ lớn nhất có một chữ số.Tìm tích của hai số

Cho 2 phản ứng Cân bằng lập pthh sem nó thuộc phản ứng nào 1. H2+Fe2O3 suy ra ...….......... 2. CO + Fe3O4 suy ra Fe+CO2

Giải cụ thể hộ mk 2 câu này nha Cơn mn

Bài 1. Dùng chiếc búa đập mạnh vào chiếc đinh nhiều lần thì nhiệt độ của đinh tăng cao. Hãy giải thích hiện tượng đó? Bài 2. Để làm 1 miếng nhôm có khối lượng là 0,5 kg ở nhiệt độ là 100°C người ta thả miếng nhôm vào 1 bình nước có nhiệt độ 25°C sau 1 thời gian nhiệt độ của miếng nhôm và nước không thay đổi bằng 30°C. Coi như chỉ có miếng nhôm và nước trao đổi nhiệt với nhau. a) Tính nhiệt lượng tỏa ra của miếng nhôm từ 100°C nguội đi còn 30°C b) Áp dụng phương trình cân bằng nhiệt tính khối lượng nước. Biết nhiệt dung riêng của Nhôm là C1=880j/kg.K và của nc là C2=4200j/kg.k ( kết quả của phép toán làm tròn đến 2 chữ số thập phân) Bài 3. Một con ngựa kéo 1 cái xe vs lực không đổi 1200N đi đc 6000m trong 2400s. Tính công và công xuất của con ngựa? Bài 4. Một lực sĩ cử tạ nâng quả tạ có khối lượng 125kg lên cao 70cm trong thời gian 0,3 giây. Tính công và công suất của người lực sĩ trong trường hợp này? Bài 5. Nhiệt lượng cần truyền cho 5kg đồng để tăng nhiệt độ từ 20°C lên 50°C là bao nhiêu? Bài 6. Thả 1 quả cầu nhôm có khối lượng 0,2kg đã đc nung nóng tới 100°C vào 1 cốc nước ở 20°C. Sau 1 thời gian, nhiệt độ của quả cầu và nc đều bằng 27°C. Coi như chỉ có 1 quả cầuvsf nc trao đổi nhiệt độ vs nhau. Biết nhiệt dung riêng của Nhôm và nước là C1=880j/kg.K và của nc là C2=4200j/kg.k Tính nhiệt lượng do qua cầu tỏa ra. Bài 9. Người ta thả 1 miếng đồng khối lượng 0,5kg vào 500g nc . Miếng đồng nguội đi từ 80°C xuống 20°C. Hỏi nc nhận được 1 nhiệt lượng bằng bao nhiêu và nóng lên thêm bao nhiêu độ?

viết một đoạn văn băng tiếng anh nếu bạn là chủ tịch câu lạc bộ 3Rs club bạn sẽ làm gì

từ văn bản cây tre việt nam kết hợp với thực tế xã hội em có suy nghĩ về đức tính cần cù của HS hiện nay

Những ảnh hưởng của một lốc xoáy là gì?

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