Em hãy viết chương trình cho biết số từ của đoạn dài nhất liên tiếp các từ
có cùng độ dài của một đoạn văn bản cho trước.

uses crt;
var s:string; a:array[1..1000]of longint;
    i,t,n,max,j:longint;
begin
  clrscr;
  write('s=');
  readln(s);
  n:=length(s);
  t:=1;
  For i:=1 to n do
    If(s[i]<>' ')or(i=1)then
    a[t]:=a[t]+1 else inc(t);
  for i:=1 to t do
    begin
      j:=i;
      while a[j]=a[i] do inc(j);
      If j-i>max then max:=j-i;
    end;
  writeln(max);
 readln
end.

đây là bài cô mk chữa mà mk chưa hiểu lắm giải nghĩa giúp mk với ạ

Cho tam giác ABC vuông tại A, AB < AC, AH là đường cao.

  a) Chứng minh tam giác HAC đồng dạng với tam giác ABC.

  b) Chứng minh HA² = HB.HC

  c) Gọi D, E lần lượt là trung điểm của AB,AC. Chứng minh CH.CB = 4DE² 

  d) Gọi M là giao điểm của đường thẳng vuông góc với BC tại B và đường thẳng DE. Gọi N là giao điểm của AH và CM. Chứng minh N là trung điểm của AH.

Bài 1:  Đường sông từ A đến B ngắn hơn đường bộ là 10km, Ca nô đi từ A đến B mất 2h20^',ô tô đi hết 2h. Vận tốc ca nô nhỏ hơn vận tốc ô tô là 17km/h.

      Tính vận tốc của ca nô và ô tô?

Bài 2:

      Một Ôtô đi từ Lạng Sơn đến Hà nội. Sau khi đi được 43km nó dừng lại 40 phút, để về  Hà nội kịp giờ đã quy định, Ôtô phải đi với vận tốc 1,2 vận tốc cũ.

     Tính vận tốc trước biết rằng quãng đường Hà nội- Lạng sơn dài 163km.

Bài 3:

     Một Ô tô dự định đi từ A đến B cách nhau 120km trong một thời gian dự định. Sau khi đi được 1h Ôtô bị chắn bởi xe hỏa 10 phút. Do đó để đến nơi đúng giờ xe phải tăng vận tốc lên 6km/h. tính vận tốc của Ôtô lúc đầu.

Bài 4:

     Hai Ô tô cùng khởi hành từ hai bến cách nhau 175km để gặp nhau. Xe1 đi sớm hơn xe 2 là 1h30' với vận tốc 30kn/h. Vận tốc của xe 2 là 35km/h.

     Hỏi sau mấy giờ hai xe gặp nhau

Tam giác ABC có BC = 15cm. Cho AK = KI = IH và EF // BC, MN // BC

a) Tính độ dài các đoạn thẳng MN và EF

b) Tính diện tích tứ giác MNFE, biết rằng diện tích của tam giác ABC là 270 cm²