Câu 1: 

uses crt;

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

i,n,t,s:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

s:=1;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

inc(dem);

t:=t+a[i];

s:=s*a[i];

end;

if dem=0 then writeln('Khong co so chia het cho 3 trong day')

else begin

writeln('Tong cac so chia het cho 3 la: ',t);

writeln('Tich cac so chia het cho 3 la: ',s);

end;

readln;

end.

Câu 2: 

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('So so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

readln;

end.

1087

bằng 1078 nha bạn

2000,2002 ,2004 ................. 2008 có 5 số chẳn

2020,2022,2024,...................2028 có 5 số chăn

2040,2042,2044....................2048... có 5 số chẳn

......................................................

2200,2202,2204..........................2208 có 5 chẳn 

5x5x5=125

tương tự như thế ta lấy 125x5 = 625 số

Giả sử số cần tìm là abcd. 
d=0 => a có 5 cách chọn, b có 8 cách chọn, c có 7 cách chọn. 
=> có 5*8*7 cách chọn. 
d=2 => a có 5 cách chọn, b có 8 cách chọn, c có 7 cách chọn. 
=> có 5*8*7 cách chọn. 
d=4 => a có 5 cách chọn, b có 8 cách chọn, c có 7 cách chọn. 
=> có 5*8*7 cách chọn. 
d=6 => a có 5 cách chọn, b có 8 cách chọn, c có 7 cách chọn. 
=> có 5*8*7 cách chọn. 
d=8 => a có 5 cách chọn, b có 8 cách chọn, c có 7 cách chọn. 
=> có 5*8*7 cách chọn. 
=> có 5*8*7*5 = 1400 cách chọn.

jup tôi vơi cần gấp lắm

Bài giải

Tổng = số lớn nhất có 4 chữ số khác khau = 9876

Hiệu = số chẵn lớn nhất có 3 chữ số = 998

Số lớn là:

(9876 + 998) : 2 = 5437

Số bé là:

9876 - 5427 = 4449

Đ/S: Số lớn: 5437

        Số bé: 4449

Bạn thử lại xem có đúng ko nhé.

HT

bạn tính sai 

250 nhé bạn

Tick tớ nha .

Số lẻ thì làm sao vậy bạn?