Viết chương trình nhập vào 3 số nguyên, đếm xem tổng của ba số đó chia hết cho bao nhiêu phần tử trong mảng A gồm 50 phần tử

hoanghaiyen1819

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 10 xem

1 trả lời

Thích Trả lời

thanhphamxp1

program ct;

uses crt;

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

i,a,b,c,dem:integer;

S:longint;

begin clrscr;

for i:=1 to 50 do

begin

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

end;

writeln('Nhap vao ba so nguyen: '); readln(a,b,c);

S:=a+b+c; dem:=0;

for i:=1 to 50 do

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

writeln('Tong cua ba so do chia het cho ',dem,' phan tu cua mang A);

readln;

end.

Học tốt!

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

toquynh0712

program ch;

uses crt;

var a,b,c,i,dem: integer;

a: array[1..50] of integer;

S: longint;

begin

clrscr;

write('Nhap 3 so nguyen: ');

readln(a,b,c);

writeln('--Nhap mang--');

for i:=1 to 50 do

begin

write('Nhap phan tu thu ',i,': ');

readln(a[i]);

end;

S:=a+b+c;

for i:=1 to 50 do

begin

if(S mod a[i] = 0) then dem:=dem+1;

end;

readln;

end.

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

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

VẼ MỘT CÔ GÁI MẶC VÁY RỘNG VẼ MỘT CÔ GÁI MẶC VÁY NGẮN VẼ 2 CÁI ĐÓ

Câu 1 :Một bể cá ko có nắp làm bằng kính dạng hình hộp chữ nhât có chiều dài 1,5 m , chiều rộng 1,2 m và chiều cao 0,8 m . Hiện tại 3/4 thể tích đã có nước . a, Tính diện tích kính dùng làm bể b, Tính số lít nước hiện tại có trong bể . Câu 2 : Tính nhanh 32 x 78 + 33 x 22 Lưu ý : bài 1 giải ra cho mik bài 2 thì ghi đầy đủ cách giải ra cho mik nha !

vieết công thưc tính nhiệt lượng tỏa ra và thu vào (vật lý 8)

Câu 12 : Một ô tô khởi hành từ A lúc 9 giờ 15 phút với vận tốc 40,5 km/giờ .Hỏi ô tô đến B vào lúc nào , biết rằng quãng đường AB dài 97,2 km và giữa đường ô tô nghỉ 30 phút . Câu 13 :Một bể nước làm bằng tôn dạng hình hộp chữ nhật có chiều dài 1,2 m ; chiều rộng kém chiều dài 0,6 m và có diện tích xung quanh là 6,72 m2.Khi bể ko có nước , người ta mở vòi cho nước chảy vào bể , mỗi giờ được 561 lít nước .Hỏi sau mấy giờ thì lượng nước trong bể bằng 75 % thể tích của bể ?

hay ko Ngày nắng đốt theo đêm mưa dội Mỗi bước đường mỗi bước hy sinh Trán cháy rực nghĩ trời đất mới Lòng ta bát ngát ánh bình minh. Súng nổ rung trời giận dữ Người lên như nước vỡ bờ Nước Việt Nam từ máu lửa Rũ bùn đứng dậy sáng loà.

a.Hiện tượng nóng lên toàn cầu làm băng tan ảnh hưởng như thế nào đến động vật đới lạnh b.Sao số loài động vật ở môi trường nhiệt đới lại nhiều hơn môi trường đới lạnh và hoang mạc đới nóng Các bạn trả lời đầu đủ vào nhớ, và đừng nói mấy cái quá sâu xa, trong chương trình sinh lớp 7 thôi, và đừng copy trang khác nhé☺️☺️☺️

Viết một đoạn văn khoảng 70-90 từ về cái gì mà chúng ta nên làm để tiết kiệm năng lượng Sử dụng những gợi ý dưới đây: using low energy light balbs turning off all electric divices like tivi, radio, compuler or lights, lefore we go out using more public transport instead of riding motor bike or driving car

mọi người làm đề 2 cho em với ạ

Một di tích lịch sử cần phải có cái gì để đc công nhận là di sản văn hoá cấp tỉnh Giúp mk vs

Xử lí tình huống: khi bị rắn cắn, chó cắn em phải làm gì ?

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