7 2018 TIN CHUYEN DE

SỞ GIÁO DỤC VÀ ĐÀO TẠO ĐỀ THI TUYỂN SINH LỚP 10 TRƯỜNG THPT CHUYÊN NAM ĐỊNH Năm học: 2018-2019 ĐỀ CHÍNH THỨC Mơn thi: Tin học (chun) Thời gian làm bài: 150 phút (Đề thi gồm: 02 trang) Câu (2 điểm) Cho chương trình viết ngơn ngữ Pascal sau: var n,w,k:int64; begin readln(n); w:=0; while n0 if n mod 2=0 then begin n:=n div 2; if n mod 2=0 then w:=w+ n div else w:=w+(n+1) div 2; end else n:=n-1; writeln(w); end Khi thực chương trình trên, ứng với giá trị n đưa vào, cho biết giá trị biến w đưa hình trường hợp sau đây: Trường hợp n 10 165 3290 10005 w Lập chương trình ngơn ngữ Pascal để giải toán câu 2; 3; 4; Câu (2 điểm) Ước số lớn Viết chương trình nhập từ bàn phím số ngun dương N (2 ≤ N ≤ 109) Đưa hình hiệu số N ước số nguyên dương lớn (không tính N) N Ví dụ: Màn hình thực chương trình là: N=27 Hieu so giua N va uoc so lon nhat:18 Câu (2 điểm) Xâu chia hết cho Cho xâu s gồm chữ số Một xâu xâu s dãy khơng rỗng kí tự liên tiếp xâu s Một xâu bắt đầu kí tự ‘0’ Xâu gọi chia hết cho số tạo thành xâu chia hết cho Cho ví dụ, xâu s ‘124’ có xâu chia hết cho ‘12’, ‘4’, ‘24’, ‘124’ Với xâu ‘04’ có xâu chia hết cho ‘0’, ‘4’, ‘04’ Yêu cầu: Tìm số lượng xâu chia hết cho xâu s Dữ liệu vào: Từ tệp văn XAU.INP gồm dòng, xâu s (độ dài xâu s đoạn từ tới 3x105) Xâu s chứa chữ số thuộc đoạn [0;9] Trang 1/2 Kết ra: Đưa liệu tệp văn XAU.OUT số nguyên, số xâu chia hết cho xâu s Ví dụ: XAU.INP XAU.OUT 124 Câu (2 điểm) Bộ số nguyên đặc biệt Cho dãy gồm N số nguyên X1,X2,… XN Một số nguyên (a,b,c,d) gọi đặc biệt thỏa mãn đồng thời điều kiện sau:  1≤a