C©u 1 PHÒNG GIÁO DỤC ĐÀO TẠO BỐ TRẠCH kú thi CHäN häc sinh giái líp 9 n¨m häc 2012 2013 m«n tin häc §Ò chÝnh thøc SBD Thêi gian 150 phót, kh«ng kÓ thêi gian giao ®Ò ®Ò ra Sö dông ng«n ng÷ lËp tr×nh Tu[.]
PHỊNG GIÁO DỤC ĐÀO TẠO BỐ TRẠCH §Ị chÝnh thøc SBD kỳ thi CHọN học sinh giỏi lớp năm häc 2012-2013 m«n: tin häc Thêi gian 150 phót, kh«ng kể thời gian giao đề đề Sử dụng ngôn ngữ lập trình Turbo Pascal để lập trình giải toán sau: Cõu (3.0): Ch s: CHUSO.PAS Vit chương trình nhập vào số tự nhiên n (n< 1000) xác định: - n có chữ số - Tổng chữ số n - Chữ số bên trái n Ví dụ: Nhap vao so nguyen: 254 254 la so co chu so 254 co tong chu so la 11 254 co chu so dau tien ben trai la Câu (3.0đ): Xóa xâu: XOAXAU.PAS Viết chương trình nhập vào xâu ký tự St1 (nhỏ 30 ký tự), loại bỏ khỏi xâu nhóm ký tự ‘abc’ xuất xâu St2 sau loại bỏ ký tự Ví dụ: Nhập vào xâu là: acabcababcac Kết xâu St2 là: acabac Câu 3: (4,0 điểm) TANSUAT.PAS Cho dãy số nguyên A gồm n phần tử A1, A2, A3, , An (1 ≤ n ≤ 20000) (0 ≤ Ai ≤ 32000, ≤ i ≤ n) Lập chương trình xác định số lần xuất số dãy A Dữ liệu vào: Cho file văn TANSUAT.INP có cấu trúc sau: + Dòng 1: Ghi số nguyên dương n (n=0) and (n=0) and (n =10) and (n 0 then writeln(f,i,' ', a[i]:4); close(f); end; BEGIN Xuly; END