... HS: Viết chương trình tính tổng T= 1+1 /2+ 1/3+… +1/100 T0 T T+1/1 T T+1 /2 T T+1/3 … T T+1/100 GV: Các em quan sát thấy câu lệnh giống Nếu cô thay i=1 ,2, … tổng S thay lệnh T T+? HS: T T+1/i ... >1000? HS: Không biết GV: Các em quan sát thấy câu lệnh giống Nếu cô thay i=1 ,2, … tổng S thay lệnh S S+? HS: S S+i GV: Lệnh S S+i lặp lại lần? HS: Không biết GV: Ta sử dụng ... cuối: 100 Var S,n: integer; Begin S:=0; n:=0; While S1000 la’,n); Writeln (‘Tong dau tien >1000 la’,S); Readln End Ví dụ 5: SGK...