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

Những câu hỏi liên quan
Nguyễn Hà My
Xem chi tiết
Minh Hiếu Vũ
Xem chi tiết
hưng phúc
24 tháng 10 2021 lúc 11:54

Câu 41: B

Câu 42: B

s111111111
Xem chi tiết
Phúc 8A3 Trịnh Tuan
Xem chi tiết
sky12
4 tháng 1 2022 lúc 10:07

B

Uyên  Thy
4 tháng 1 2022 lúc 10:08

B.O 2 , K, H 2 , Fe.

Eliette
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:51

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.

Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:51

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.

Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:55

Câu 3: 

uses crt;

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

i,n,dem1,dem2,t1,t2,s1,s2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem1:=0;

dem2:=0;

t1:=0;

t2:=0;

s1:=1;

s2:=1;

for i:=1 to n do

begin

if a[i] mod 2=0 then 

begin

inc(dem1);

t1:=t1+a[i];

s1:=s1*a[i];

end

else begin

inc(dem2);

t2:=t2+a[i];

s2:=s2*a[i];

end;

end;

if dem1=0 then writeln('Khong co so chan trong day')

else begin

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

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

writeln('Tich cac so chan la: ',s1);

end;

if dem2=0 then writeln('Khong co so le trong day')

else begin

writeln('So so le la: ',dem2);

writeln('Tong cac so le la: ',t2);

writeln('Tich cac so le la: ',s2);

end;

readln;

end.

Đặng Gia Bảo
Xem chi tiết
Cihce
8 tháng 5 2022 lúc 15:52

B - B

Phương Thảo
8 tháng 5 2022 lúc 16:17

a) B 

b) B

Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
19 tháng 2 2018 lúc 11:40

Chọn D

Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
5 tháng 9 2017 lúc 7:47

Đáp án D

Ngọcc Ly
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 12 2021 lúc 14:05

Chọn A

Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
3 tháng 10 2019 lúc 11:58

Đáp án A