Tin học Lập trình Pascal đơn giản

[Tô Thị Quỳnh Như]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình nhập vào 1 mảng gồm n số tự nhiên.
-In ra màn hình các số chia hết cho 3 và 9.
-Đếm số các chữ số chia hết cho 3 và 9.

 

[ka1412]

for i:=1 to n do
begin
if a[i] mod 3 =0 then inc(d1);
if a[i] mod 3 =0 then write(a[i],#32);
end;

Mình viết phần chính thôi nha