Bài 9. Làm việc với dãy số

Thuyết Dương

Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.

program chia_het;

uses crt;

var n,i:integer;

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

begin

clrscr;

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

for i:=1 to n do begin

writeln('Nhap phan tu thu ',i,' cua day:');readln(a[i]);

end;

for i:=1 to n do begin

if (a[i] mod 2=0) and (a[i] mod 3=0)

then writeln('Phan tu chia het cho 2 va 3 la:',a[i])

end;

readln

end.

Chương trình trên đúng k ạ

crazy Trongthanh
20 tháng 10 2018 lúc 17:29

chắc có hoặc ko?

Bình luận (0)
crazy Trongthanh
20 tháng 10 2018 lúc 17:30

ha

Bình luận (0)
Nguyễn Minh Quân
7 tháng 5 2021 lúc 12:27

Chương trình chạy được , đúng nha bạn

Bình luận (0)

Các câu hỏi tương tự
Bùi Jessica
Xem chi tiết
Nguyễn Hoàng Giang
Xem chi tiết
curtis lê
Xem chi tiết
Triệu Thị Thu Trang
Xem chi tiết
Huyền Trâm Ngô
Xem chi tiết
Vy Nguyễn Khánh
Xem chi tiết
Nguyễn Trần Hoa Cương
Xem chi tiết
emhocngulamgiupemvoi
Xem chi tiết
Tali
Xem chi tiết