Lập trình đơn giản

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

cho em hỏi là bài toán tin học này phải làm sao đề là N->M

đếm có bao nhiêu số chia hết co 3

duong nguyenvan
8 tháng 9 2017 lúc 20:19

Uses Crt;

Var A: array[1..100] of longint;

n, i : integer;

Begin

Clrcsr;

write('nhap so n =');

readln(n);

for i:= 1 to n do

Begin

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

readln(a[i]);

end;

for i:= 1 to n do

if a[i] mod 3 = 0 then

writeln(' nhung so chia het cho 3 la :',a[i]);

readln

end.


Các câu hỏi tương tự
dinhnguyentuhuy
Xem chi tiết
Lihnn_xj
Xem chi tiết
Người Bình Thường
Xem chi tiết
Good look_Good like
Xem chi tiết
Nguyễn Thị Mai Anh
Xem chi tiết
Trần Minh Hoàng
Xem chi tiết
Trần Minh Hoàng
Xem chi tiết
misha
Xem chi tiết
Quỳnh Như
Xem chi tiết