Đề thi chọn học sinh giỏi cấp huyện Tin học 9 - Năm học 2018-2019 (Có đáp án)

 MÃ KÍ HIỆU ĐỀ THI CHỌN HỌC SINH GIỎI CẤP HUYỆN
 LỚP 9 - Năm học 2018-2019
 [*****] MÔN: TIN HỌC
 Thời gian làm bài: 150 phút
 ( Đề thi gồm 3 câu, 1 trang)
Bài 1: ( 3.0 điểm) Lưu với tên bai1.pas
Nhập vào 1 chuỗi gồm các số, kí tự. Hãy xóa bỏ các chữ số chẵn. Kiểm tra chuỗi kí tự còn 
lại có bao nhiêu kí tự. Xuất kết quả dưới dạng đối xứng của phần còn lại.
Ví dụ: 
 Nhập: Truongcap2
 Xuất: - Chuỗi kí tự còn lại có 9 kí tự
 - Chuỗi đối xứng sau khi xóa: TruongcappacgnourT
Bài 2 : (3.5 điểm) Lưu với tên bai3.pas
 Một dãy số nguyên là các con số chưa được sắp xếp theo một trật tự nào đó.
 Yêu cầu :
 Nhập vào 01 dãy n số nguyên (n<=100), viết chương trình
 - Sắp xếp dãy số theo chiều tăng dần
 - sắp xếp các phần tử chẵn lên đầu dãy theo chiều tăng dần, các phần tử lẻ ở cuối dãy 
theo chiều giảm dần.
 Ví dụ : n=6
 Nhập : { 3 2 1 4 0 7 }
 Xuất : 
Dãy sắp xếp tăng dần { 0 1 2 3 4 7}
Dãy sắp xếp chẵn tăng, lẻ giảm { 0 2 4 7 3 1 }.
Bài 3 (3.5 điểm) Lưu với tên bai2.pas
. Viết chương trình tính tổng sau:
 Với N nhập từ bàn phím sao cho 5<N 100, nếu nhập sai yêu cầu nhập lại khi nào 
đúng tính tổng (kết quả lấy đến 3 chữ số thập phân).
 Ví dụ: 
 Nhập: N=6
 Xuất: S=2.462
 -----------------------Hết-----------------------
 Thí sinh không được sử dụng tài liệu
 Giám thị coi thi không giải thích gì thêm. MÃ KÍ HIỆU ĐÁP ÁN ĐỀ THI CHỌN HỌC SINH GIỎI CẤP HUYỆN
 Lớp 9 - Năm học 2018 - 2019
 [*****] MÔN: TIN HỌC
 (Hướng dẫn chấm gồm 3 trang)
Bài 1 : 3.0 điểm
{Code demo}
PROGRAM XAUKITU;
uses crt;
const so=['0','2','4','6','8'];
var s:string;
 i,dem:integer;
begin
clrscr;
 dem:=0;
 write('Nhap 1 day so:');readln(s);
 i:=1;
 while i<= length(s) do
 if s[i] in so then
 begin
 delete(s,i,1);
 i:=1;
 end
 else inc(i);
 for i:=1 to length(s) do dem:=dem+1;
 writeln('Sau khi xoa cac so chan con ',dem,' kí tự .');
 write('Sau khi xoa cac so chan va bien doi doi xung :',s,' ');
 for i:=length(s) downto 1 do write(s[i]);
readln;
end.
Bài 2: (3.5 điểm)
{code demo}
uses crt;
var a,b,c:array[1..100] of integer;
 n,i,j,tam:integer;
begin
 clrscr;
 write('nhap n= ');readln(n);
 for i:=1 to n do
 begin
 write('a[',i,']=');
 readln(a[i]);
 end;
 (*sap xep*)
 for i:= 1 to n do
 for j:=i+1 to n do if a[i]>a[j] then
 begin
 tam:=a[i];
 a[i]:=a[j];
 a[j]:=tam;
 end;
 writeln('mang sau khi sap xep');
 for i:=1 to n do
 write(a[i]:5);
 writeln;
 writeln('mang sau khi da sap chan le');
 for i:= 1 to n do
 if a[i] mod 2 = 0 then
 begin
 b[i]:=a[i];
 write(b[i]:5);
 end;
 for i:=n downto 1 do
 if a[i] mod 2 <> 0 then
 begin
 c[i]:=a[i];
 write(c[i]:5);
 end;
 {b[i]:=a[i]
 else c[i]:=a[i];}
{ for i:=1 to n do
 write(b[i]:5);
 write(c[i]:5);}
 readln;
 end.
Bài 3 : (3.5 điểm):
Program bai3;
Uses crt;
Var
 N,i:integer;
 S:real;
Begin
 Clrscr;
 Write(‘Nhap so tu nhien n=’); readln(n);
 While ((n 100)) do
 Begin
 Write(‘Nhap lai n thoa man 5<n<=100, n=’); readln(n);
 End;
 S:=0;
 For i:=1 to n do
 S := s + i*(i+1)/((i+2)*(i+3));
 Write(‘Tong la:’,s:6:3);
Readln;
End.