Viết chương trình tính tích

viết chương trình tính tích
  T=1/2+1/4+1/6+...+1/14
với câu lệnh For...do
viết chương trình tính tích
  T=1/2+1/4+1/6+...+1/14
với câu lệnh While...do