... Tong_Nghich_Dao; 0 ,25 Var S: real; 0 ,25 n, i: integer; 0 ,25 BeginWrite(‘Nhap so n = ‘); Readln(n); 0,5S:= 0; 0 ,25 For i:= 1 to n do S: = S + 1/i; 0,5Writeln(‘Tong can tim la: ‘, S:6 :2) ; 0,5Readln 0 ,25 End. ... 0,5Writeln(‘Tong can tim la: ‘, S:6 :2) ; 0,5Readln 0 ,25 End. 0 ,25 TRƯỜNG THCS EABUNGHọ và tên: Lớp: 8 KIỂM TRA HỌC KÌ II – NĂM HỌC 09-10Môn : TIN HỌC 8 Thời gian: 45 phút A. Trắc nghiệm: ( 4 điểm) Khoanh ... đây là đúng:A. If a=5 then a:=a+1; else a:=a +2; B. If a=5 then a:=a+1else a:=a +2 C. If a=5 then a=a+1; else a=a +2; D. If a=5 then a:=a+1else a:=a +2; Câu 4: Sau khi thực hiện đoạn chương trình...