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

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