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

Viết chương trình đếm các số là bội của 3 trong khoảng từ [-12 ,64]

 

Lê Bảo Châu
15 tháng 1 lúc 17:14

Program Boicuaba;

Uses crt;

Var i,n,dem:integer;

a:array[-12...64] of integer;

Begin

clrscr();

Dem:=0;Write('Nhap so phan tu ');

Readln(n);

For i:=1 to n do

Begin

Write('Nhap a[',i,']');

Readln(a[i]);

End;

For i:=1 to n do

Begin if a[i] mod 3=0 then inc(dem);

End;

Write('Co ',dem,' so la boi cua 3 trong ',n,' phan tu');

Readln

End.

Kiều Vũ Linh
17 tháng 1 lúc 9:37

var i,dem:integer;

begin

write('So cac so la boi cua 3 trong khoang tu -12 den 64 la ');

for i:=-12 to 64 do

if i mod 3 = 0 then dem:=dem+1;

write(dem,' so');

readln;

end.


Các câu hỏi tương tự
Vương thúy hằng
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
lân đinh
Xem chi tiết
Hồng Đức Nguyễn
Xem chi tiết
Mon Mon
Xem chi tiết
Nguyên Đăng
Xem chi tiết
linh linh
Xem chi tiết
tiến bộc phấ
Xem chi tiết
linh linh
Xem chi tiết