Đề: Hãy nêu các hoạt động chống lại chiến tranh mà em biết. (Mn giúp mình câu này với,đang cần gấp hôm nay.Cảm ơn mn🥰)

Cho ABC vuông tại A có AB=9cm,AC=12cm,đường cao Ah,phân giác BD

a) C/m:△ABC∼△HBA

b) Tính độ dài AH,CD

c) C/m:AH²=BH.CH

d) Kẻ DE//AB(EϵBC).C/m:BE=DE

Câu 1: Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số. Độ dài của dãy cũng được nhập từ bàn phím

CT mẫu:

uses crt;

var n,i:integer;

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

Begin

clrscr;

write('nhap so phan tu cua day:');  readln(n);

for i:=1 to n do

begin

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

end;

writeln('day so da nhap:');

for i:=1 to n do write(a[i]:2);

readln;

end.

giúp mình với mình cảm ơn trước

DẠNG 1: TÌM LỖI VÀ SỬA LỖI

Câu 1.

Var      s,i: longint;

Begin

            S:=0.5

            i = 1;

            while s ≤ 5.5 do

                        s = s+i;

            write(‘s = ‘,s);

end;

Câu 2.

Var      p,i,n: real;

Begin

            Readln(n)

            p:=1;

            for i=1 to n do

                        p= p*i/(i+1);

            write(‘p = ‘,p);

end;

Câu 3.

Var      a:array[1: 50] of longint;

n,s,i: real;

Begin

            Readln(n);    

For i:=1 to n do

            Readln(a(i));

S:=0;

            For i:= 1 to n do

                        S:= s+a(i);

            write(‘s = ‘,s);

end.

giúp mình với mình đang cần gấp

Giúp mik vs Mik đang cần gấp

Viết công thức tính vận tốc cho chuyển động đều và công thức tính vận tốc trung bình cho chuyển động ko đều(Chú thích đại lượng và gh rõ đơn vị) Giúp mik vs mi thi r Mình ik cảm ơn trước😚😇😶🙃