ĐỀ KIỂM TRA 15 PHÚT TIN HỌC TUẦN 33 ĐỀ 1: viết chương trình tính tổng 10 số tự nhiên Dùng lệnh While…do ĐỀ 2: viết chương trình tính tổng 10 số tự nhiên Dùng lệnh For…do ĐÁP ÁN: Đề Câu Dùng lệnh Program Tinh_tong; While…do Const n = 10; Var i, tong: integer; Begin Tong := 0; I := 1; While I < n Begin Tong := tong + I; I := I + 1; End; Writeln ( ‘ Tong cua 10 so tu nhien dau tien la:’, tong); Readln; End Điểm 0.5 0.5 0.5 0.5 1 0.5 1 0.5 0.5 0.5 Đề Dùng lệnh For…do Câu Program Tinh_tong; Const n = 10; Var i, tong: integer; Begin Tong := 0; For I := to 10 Tong := tong + I; Writeln ( ‘ Tong cua 10 so tu nhien dau tien la:’, tong); Readln; End Điểm 1 1 1 1 1