MÃ KÝ HIỆU …………………………… ĐỀ THI CHỌN HỌC SINH GIỎI LỚP 12 THPT Năm học 2016 – 2017 MÔN: TIN HỌC Thời gian làm bài: 180 phút (Đề thi gồm 03 câu, 02 trang) Tổng quan đề thi: Chương trình NUMBER.PAS BSTR.PAS WOOD.PAS Câu 1- Số nhỏ 2- Xâu nhị phân 3- Ghép gỗ Input NUMBER.INP BSTR.INP WOOD.INP Output NUMBER.OUT BSTR.OUT WOOD.OUT Câu Số nhỏ (6,0 điểm) Cho dãy số gồm N số tự nhiên không vượt 109 (N then begin if H[i] < max then if x > then begin H[i] := H[i]+a; dec(x); dec(s); end else begin H[i] := H[i]+b; dec(y); dec(s); end; if H[i] > max then max := H[i]; if H[i] = max then inc(dem); end; if (dem = m) and ( s>0) then if x > then begin H[1] := H[1]+a; dec(x); dec(s); end else begin H[1] :=H[1]+b; dec(y); dec(s); end; end; kq:= H[1]; for i := to m if kq > H[i] then kq := H[i]; write(kq); close(input); close(output); END -Hết - ... test nhỏ - HẾT - MÃ KÝ HIỆU HƯỚNG DẪN CHẤM ………………………… ĐỀ THI CHỌN HỌC SINH GIỎI THPT CẤP TỈNH Năm học 2016 – 2017 MÔN: TIN HỌC (Hướng dẫn chấm gồm 05 trang) Câu 1: test, test cho 1,0 điểm... Const max=1000000; Var x: array [1 max] of byte; d,l,n,dem: integer; (* -*) Procedure tinh; var i: integer; KT:boolean; j: integer; Begin KT:= true; for i:=1 to (n - 2*l + 1) begin dem:=0;... Câu Procedure Try ( I : integer); var j: integer; begin For j:= to begin x[i] := j; if I = n then tinh else Try ( I + 1); end; end; (* *) BEGIN Assign ( input, 'BSTR.INP'); reset (input);