Bài 6: Phép toán, biểu thức, câu lệnh gán

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Smile Cong

Viết chương trình nhập từ bàn phím một dãy số nguyên gồm n phần tử đưa ra màn hình các phần tử chia hết cho 7 và 3

Nguyễn Lê Phước Thịnh
14 tháng 11 2019 lúc 22:11

đơn giản

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{---------------------------xuat------------------------}

for i:=1 to n do

write(a[i]:4);

{---------------------------xu-ly-----------------------}

writeln;

writeln('cac phan tu chia het cho 7 trong day la: ');

for i:=1 to n do

if a[i] mod 7=0 then write(a[i]:4);

writeln;

writeln('cac phan tu chia het cho 3 trong day la: ');

for i:=1 to n do

if a[i] mod 3=0 then write(a[i]:4);

readln;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
trần duy hiếu
Xem chi tiết
Trần Lan Anh
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
Nguyễn Cát Tường
Xem chi tiết
Huuthuong
Xem chi tiết
Ha Ha
Xem chi tiết
Kiều Oanh
Xem chi tiết
nguyễn thị cẩm tiên
Xem chi tiết
Yến Ngọc
Xem chi tiết