KIỂM TRA THỰC HÀNH 1 TIẾT II. Đề bài: Câu 1. Em hãy viết chương trình tính tổng các số chẳn từ 1 đến 100 (6đ) Câu 2. Em hãy dịch và sửa lỗi chương trình (nếu có) (2đ) Câu 3. Em hãy chạy chương trình và kiểm tra kết quả (2đ) III. Đáp án: Câu Nội dung Điểm Câu 1: Viết chương trình tính tổng các số chẳn từ 1 đến 100 (sử dụng vòng lặp không xác đinh) Program tinh_tong_cac_so_chan; Var i, S: Integer; Begin S:= 0; i:= 2; While i <= 100 do Begin S:= S+ i; i:= i + 2; End; Writeln( ‘ Tong cac so chẳn tu 1 den 100 =’, S); Readln; End. 1đ 1đ 3đ 1đ Câu 2: Nhấn F9 để dịch và sửa lỗi chương trình 2đ Câu 3. Nhấn Ctrl +F9 để chạy và kiểm tra chương trình 2đ . 2; End; Writeln( ‘ Tong cac so chẳn tu 1 den 10 0 =’, S); Readln; End. 1 1 3đ 1 Câu 2: Nhấn F9 để dịch và sửa lỗi chương trình 2đ Câu 3. Nhấn Ctrl +F9 để chạy và kiểm tra chương trình 2đ . Điểm Câu 1: Viết chương trình tính tổng các số chẳn từ 1 đến 10 0 (sử dụng vòng lặp không xác đinh) Program tinh_tong_cac_so_chan; Var i, S: Integer; Begin S:= 0; i:= 2; While i <= 10 0 do Begin . KIỂM TRA THỰC HÀNH 1 TIẾT II. Đề bài: Câu 1. Em hãy viết chương trình tính tổng các số chẳn từ 1 đến 10 0 (6đ) Câu 2. Em hãy dịch và sửa lỗi chương trình (nếu