Program ss;
Var a:array[1..100] of integer;
n,i,d1,d2:integer;
tbcc,tbcl:real;
Begin
Write('Nhap so phan tu'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
End;
tbcc:=0; tbcl:=0;
For i:=1 to n do
if a[i] mod 2=0 then tbcc:=tbcc+a[i]; inc(d1);
if a[i] mod 2<>0 then tbcl:=tbcl+a[i]; inc(d2);
end;
tbcc:=tbcc/d1;
tbcl:=tbcl/d2;
Writeln('TBC cac so chan la: ',tbcc:4:2);
writeln('tbc cac so le la: ',tbcl:4:2);
readln;
end.
program TBC_chan;
uses crt;
var A:array [1..500] of integer;
n,i,TBc,dc,Tbl,dl: integer;
clrscr;
write('Nhap n: '); readln(n);
write('Nhap gia tri thu ',i,': '); readln(A[i]);
if A[i] mod 2=0 then
TBc:=TBc+A[i];
dc:=dc+1;
if A[i] mod 2<>0 then
TBl:=TBl+A[i];
dl:=dl+1;
writeln('Trung binh cong cac so chan: ',TBc/dc:2:2);
write('Trung binh cong cac so le: ',TBl/dl:2:2);
readln
End.
Vẽ anime ikkk NL: Chán quớ.Ai còn thức khôm Zô nói chịn nek=>
Nhận biết các dung dịch mất nhãn sau bằng phương pháp hóa học H2SO4,HCL,K2SO4,NaNO3
1. Em hãy nêu trách nhiệm của công dân trong việc tôn trọng quyền được pháp luật bảo hộ về tính mạng,sức khỏe,danh dự và nhân phẩm. 2.Nêu những quy định của nhà nước trong việc bảo vệ quyền được pháp luật bảo hộ về tính mạng,sức khỏe,danh dự và nhân phẩm của công dân. 3.Khi bị xâm phạm về tính mạng,sức khỏe, danh dự và nhân phẩm thì em nên làm gì? #Giúp mình nha
So sánh 4 câu kế cuối của Nói với con và khổ 2,3 của Mùa xuân nho nhỏ
Có 2 học sinh A và B nhìn khối cát to như một quả đồi , ước lượng thể tích bạn A :khối cát khoảng 12 triệu m3 , bạn B bảo : khối cát chỉ khoảng 0,1 mol hạt cát . Theo em , bạn nào ước lượng khói cát lớn hơn , lớn hơn bao nhiêu lần ? Cho rằng khối lượng riêng của cát là 2 gam/cm^3 và 1 hạt cát có khối lượng 1/10000 gam
Cho 20 điểm phân biệt trong đó có đúng 5 điểm thăng hàng.Các điểm còn lại không có bộ 3 điểm nào thắng hàng. Cứ qua 3 điểm không thăng hàng ta vẽ được một tam giác. Hỏi vẽ được tất cả bao nhiêu tam giác?
x mũ 4 trừ 3 x mũ 3 + 6 x mũ 2 + 3 x + 1 = 0
Giúp emmmmmm vơiiiiii Cho tam giác ABC có 3 góc nhọn nội tiếp đường tròn tâm O các đường cao AD, BE, CF cắt nhau tại H. a) cm DHEC nội tiếp, xác định tâm M. b) Vẽ (M) cắt (O) tại K. Cm HK song song OM c) Gọi S là trung điểm BH. Chứng minh nếu EK vuông góc BC thì 3 điểm K, D, S thẳng hàng
Cho tam giác ABC vuông tại A có A B B C = 4 5 ; AC=18cm. Vẽ đường phân giác BD của tam giác ABC. Trên cạnh AB lấy điểm H sao cho A H A B = 1 3 , từ B vẽ đường thẳng vuông góc với đường thẳng HC tại E, đường thẳng BE cắt đường thẳng AC tại F a. Tính độ dài AD và DC b. Chứng minh: Δ H A C − v à − Δ H E B đồng dạng c.Chứng minh A F . A C = 1 3 A B 2 d. Trên tia đối FA lấy M sao cho FM=2FA. Chứng minh: MB vuông góc với BC
Cho hàm số y=ax+b biết đồ thị hàm số đã cho song song với đường thẳng y=5x+6 và đi qua điểm A(2;3)
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
