Đề khảo sát chất lượng học sinh giỏi Tin học Lớp 8 - Năm học 2018-2019 - Phòng GD&ĐT Nho Quan (Có đáp án)

 UBND HUYỆN NHO QUAN ĐỀ KHẢO SÁT CHẤT LƯỢNG HỌC SINH GIỎI 
PHÒNG GIÁO DỤC VÀ ĐÀO TẠO Năm học 2018 - 2019
 MÔN: TIN HỌC 8
 ĐỀ THI CHÍNH THỨC (Thời gian làm bài 120 phút)
 Đề thi gồm 04 câu, trong 02 trang
 Yêu cầu kỹ thuật:
 Sử dụng ngôn ngữ Pascal.
 Các tệp tin được đặt tên chính xác như sau:
 Bài Tên tệp Dữ liệu vào Dữ liệu ra
 1 Bai1.pas Bàn phím Màn hình
 2 Bai2.pas Bàn phím Màn hình
 3 Bai3.pas Bàn phím Màn hình
 4 Bai4.pas Bàn phím Màn hình
 Bài 1 (7,0 điểm):
 Nhập vào 4 số a,b,c,d. (a,b,c,d<=106); In ra số lớn nhất.
 Ví dụ: 
 Bàn phím Màn hình
 3 12 4 29 29
 -3 8 4 2,9 8
 5 6 7 8 18,9 18,9
 Bài 2 (5,0 điểm):
 Tính tổng n số tự nhiên lẻ đầu tiên, với n nhập từ bàn phím. (n<=103).
 Ví dụ: 
 Bàn phím Màn hình
 3 9
 5 25
 40 1600
 Bài 3 (5,0 điểm): 
 Nhập một mảng A có n phần tử, với n và các phần tử của mảng nhập từ phím. In ra 
 tổng các số lẻ có trong mảng. (n<=103, A[i]<=106).
 Ví dụ: 
 Bàn phím Màn hình
 n = 3 10
 A[1] = 3
 A[2] = 4
 A[3] = 7 Bàn phím Màn hình
 n = 4 14
 A[1] = 23
 A[2] = -4
 A[3] = -9
 Bài 4. (3,0 điểm). 
 Phép tính mod là phép chia lấy dư. (Ví dụ: 5 mod 3 = 2; 6 mod 3 =0).
 Tính kết quả của phép tính sau:
 S= mn mod k.
 Với m, n, k nhập từ bàn phím. (m, n<=106; k<=103).
 Ví dụ: 
 Bàn phím Màn hình
 m = 5 1
 n = 2
 k = 24
 m = 5
 n = 16
 k = 8
 ------------------Hết------------------
Họ và tên thí sinh.....................................................Số báo danh.............................................
 Họ và tên chữ kí giám thị 1 Họ và tên chữ kí giám thị 1 UBND HUYỆN NHO QUAN HƯỚNG DẪN CHẤM KSCL HỌC SINH GIỎI 
 PHÒNG GIÁO DỤC VÀ ĐÀO TẠO MÔN: TIN HỌC 8
 Năm học 2018 - 2019
 CHƯƠNG TRÌNH THAM KHẢO
Bài 1.
 PROGRAM bai1;
 VAR a,b,c,d,max: LONGINT;
 BEGIN
 write('Nhap a,b,c,d=');readln(a,b,c,d);
 max:=a;
 IF max<b THEN max:=b;
 IF max<c THEN max:=c;
 IF max<d THEN max:=d;
 write('Max=',max);
 readln;
 END.
Bài 2.
 PROGRAM bai2;
 VAR s,n,i,j: LONGINT;
 BEGIN
 write('n= ');read(n);
 j:=1;s:=0;
 FOR i:=1 TO n DO
 BEGIN
 s:=s+j;
 j:=j+2;
 END;
 write('S= ',s);
 readln;
 END.
Bài 3.
 PROGRAM bai3;
 VAR s,n,i: LONGINT;
 a: ARRAY[1..1000] OF LONGINT;
 BEGIN
 s:=0;
 write('n= ');readln(n); FOR i:=1 TO n DO
 BEGIN
 write('A[',i,']= ');readln(A[i]);
 END;
 FOR i:=1 TO n DO
 IF A[i] MOD 2 <>0 THEN S:=S+A[i];
 write('S= ',S);
 readln;
 END.
Bài 4.
 PROGRAM bai3;
 VAR i,m,n,lt,k: LONGINT;
 BEGIN
 write('m= ');readln(m);
 write('n= ');readln(n);
 write('k= ');readln(k);
 lt:=1;
 FOR i:=1 TO n DO
 BEGIN
 lt:=lt*m;
 lt:=lt MOD k;
 END;
 write('S=',lt);
 readln;
 END.