Cho tam giác ABC cân tại A nội tiếp đường tròn tâm H đường kính AK. I là một điểm nằm trên cung AB không chứa C. Dây cung IK cắt BC tại M. Đường trung trực của IM cắt AB,AC lần lượt tại D và E

CMR : A,H,D,E,I thuộc một đường tròn

Cho lăng trụ ABC.A'B'C' có đáy là tam giác đều cạnh a. Hình chiếu của A' lên (ABC) là trọng tâm của ΔABC. AA' = \(\dfrac{a\sqrt{6}}{3}\). Gọi P,Q,N lần lượt là trung điểm của AB,CC' và A'G. Tính khoảng cách từ N đến (PQC)

Quỳnh Anh Đào bạn khai báo cả n và d nữa cho mình

var A:array [1..102] of integer;

begin

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

for i:=1 to n do begin

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

                       readln(A[i]);

                       end;

d:=0;

for i:=1 to n do if (A[i] mod 3 = 0) and (A[i] mod 2 = 1) then d : = d+1;

write('Trong day co ',d,' so le chia het cho 3 ');

readln

end.

Không tìm được vì phương trình m(m+1) = 2017 không có nghiệm tự nhiên 

Cho tam giác ABC. Điểm I nằm trong tam giác sao cho \(\widehat{IAB}=\widehat{IBC}=\widehat{ICA}\). Chứng minh rằng : tổng của 2 trong ba số \(\dfrac{IA}{sin^2B},\dfrac{IB}{sin^2C},\dfrac{IC}{sin^2A}\) luôn lớn hơn số còn lại. 

Nhập xâu S vào từ bàn phím rồi tính tổng các số trong xâu S và đưa kết quả ra màn hình.

Lưu ý : "Số" khác với "chữ số". 

Ví dụ : Nếu nhập xâu 'awjir1ui125j62kj61ji52' thì tổng sẽ là 

T = 1+125 + 62 + 61 + 52 = 301

\(\left(x_n\right)\left\{{}\begin{matrix}x_1=2\\x_{n+1}=\dfrac{x_n+2+\sqrt{x_n^2+8x_n-4}}{2},n\in N,n>0\end{matrix}\right.\)

Đặt \(y_n=\sum\limits^n_{k=1}\dfrac{1}{x_n^2-4}\). Tìm lim y_n

y' > 0 ⇔ \(\dfrac{-1}{2\sqrt{4-x}}+\dfrac{1}{2\sqrt{4+x}}>0\)

⇔ \(\dfrac{1}{2\sqrt{4+x}}>\dfrac{1}{2\sqrt{4-x}}\)

⇔ \(\dfrac{1}{\sqrt{4+x}}>\dfrac{1}{\sqrt{4-x}}\)

⇔ \(\left\{{}\begin{matrix}4-x>0\\4+x>0\\4+x< 4-x\end{matrix}\right.\)

⇔ \(\left\{{}\begin{matrix}4-x>0\\4+x>0\\x< 0\end{matrix}\right.\) ⇔ -4 < x < 0.

Bạn thêm dấu = ở số 0 vào nhé 

var a:Array [1..100] of word;

      n,i:byte;

      S:word;

begin

 write('Nhap so so hang trong day : n = '); readln(n);

 for i:=1 to n do begin

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

                          readln(A[i]);

                         end;

S:=0;

for i:=1 to n do if A[i] mod 2 = 1 then S:=S+A[i];

if S = 0 then write('Trong day khong co so le nao nen khong tong khong ton tai') else write('Tong cac so le trong day la : S = ',S);

readln

end.