Kiem tra 1 tiet (TH)

KIỂM TRA 1 TIẾT THỰC HÀNH MÔN: TIN HỌC 8 Bài 1: Chương trình sau dùng để nhập vào một số n bất kỳ từ bàn phím và kiểm tra số đó là số chẵn hay số lẻ Program Chan le; uses crt; var n interger; Begin Clrscr; Write(nhap so duong n bat ky tu ban phim); Readln (n) if n mod 2 := 0 then Writeln ('so vua nhap la so chan'); if n mod 2 <>0 then; Writeln ('so vua nhap vao la so le'); Readln End 1. Khởi động Turbo Pascal và Nhập Chương trình trên (3đ) 2. Lưu chương trình với tên: tên của em + Lớp (1đ). Ví dụ: Trang_8.1 3. Trong chương trình trên có một số lỗi em hãy sửa lại cho đúng sau đó dịch và chạy chương trình với n = 15 và n = 18 (4đ). Bài 2: (2đ) Các các lệnh sau dùng để xếp loại điểm kiểm tra (yêu cầu: nếu điểm kiểm tra (DKT) >= 8 thì loại “giỏi”, 8> DKT >=6.5 thì loại khá, còn lại trung bình) nhưng có trật tự chưa hợp lý. Em hãy sắp xếp để được chương trình hoàn chỉnh Uses crt; Var DKT: Real; Begin Program Xep_loai; Readln (DKT); Write(‘nhap Diem kiem tra’); else if DKT >=7,5 then Write (‘loai kha’); if DKT>=8,5 then Wrteln (‘Loai gioi’) else writeln (‘loai trung binh’); Readln; End. . KIỂM TRA 1 TIẾT THỰC HÀNH MÔN: TIN HỌC 8 Bài 1: Chương trình sau dùng để nhập vào một số n bất kỳ từ bàn phím và kiểm tra số đó là số chẵn. le'); Readln End 1. Khởi động Turbo Pascal và Nhập Chương trình trên (3đ) 2. Lưu chương trình với tên: tên của em + Lớp (1 ). Ví dụ: Trang_8 .1 3. Trong chương