Bài 5: Khai báo biến

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

Giúp mình với ạ

Nhập vào dãy số nguyên có n phần tử (n<=52). Nhập vào một số nguyên k, đếm xem trong dãy có bao nhiêu số chia hết cho k. Kiểm tra lượng số chia hết cho k là chẵn hay lẻ

Luân Đào
1 tháng 1 2021 lúc 15:59

var n,i,k,d: integer;

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

begin

write('Nhap so N: '); readln(n);

for i:=1 to n do

begin

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

end;

write('Nhap so k: '); readln(k);

d:=0;

for i:=1 to n do

if a[i] mod k = 0 then d:=d+1;

writeln('Co ',d,' so chia het cho ',k,' trong day');

if d mod 2 = 0 then writeln('Chan') else writeln('Le');

end.

Nguyễn Lê Phước Thịnh
2 tháng 1 2021 lúc 9:20

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=52);

for i:=1 to n do 

  begin

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

end;

write('Nhap k='); readln(k);

dem:=0;

for i:=1 to n do  

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

writeln('Trong day co ',dem,' so chia het cho ',k);

if dem mod 2=0 then writeln('So luong so chia het cho ',k,' la so chan')

else writeln('So luong so chia het cho ',k,' la so le');

readln;

end.


Các câu hỏi tương tự
Sang Nè
Xem chi tiết
Phí Hoàng Mai Anh
Xem chi tiết
Lê Văn Tuấn
Xem chi tiết
Phí Hoàng Mai Anh
Xem chi tiết
lê trần ngọc quý
Xem chi tiết
bin nguyễn
Xem chi tiết
Khanh Quynh
Xem chi tiết
bin nguyễn
Xem chi tiết
Huy Nguyen
Xem chi tiết