ĐỀ THI HSG THCS TỈNH KHÁNH HÒA (2014-2015)

Bài 1: Số may mắn (5 điểm)
Một số được gọi là “số may mắn” nếu nó thỏa mản cả hai yêu cầu sau:
- Là số tiến (Số tiến là số mà các chữ số của nó có giá trị tăng dần)
- Là số có 9 “nút” (Số “nút” của một số là số dư khi chia tổng các chữ số của nó cho 10)
Dữ liệu: Vào từ tập tin văn bản MAYMAN.INP có một dòng duy nhất ghi một số tự nhiên N thỏa mãn 1≤ N≤ 1000000000.
Kết quả:L Ghi ra tệp văn bản MAYMAN.OUT kết quả việc kiểm tra xem số N có phải là “số may mắn” hay không? Nếu N là “số may mắn” sẽ ghi dòng chữ “So may man”, ngược lại ghi “Khong phai so may man”.

Bài 2: Xâu đúng (5 điểm)
Viết chương trình nhập từ bàn phím một xâu kí tự, trong đó, nếu tính từ trái sang phải thì kí tự # là dấu hiệu xóa đi một kí tự đứng ngay trước nó (nếu có). Sau đó in ra màn hình xâu đã sửa theo đúng qui định.
Ví dụ:
‘Ta#oi di thi hoc sinua#h###nh gioi tin hoj#c THCS’ có nghĩa là ‘Toi di thi hoc sinh gioi tin hoc THCS’
Dữ liệu: Nhập từ bàn phím một xâu kí tự cần sửa.
Kết quả: In ra màn hình xâu đã sửa.

Bài 3: Phéo chia lấy dư (5 điểm)
Viết chương trình thực hiện công việc sau:
- Nhập vào 10 số nguyên dương N1, N2, N3,…, N9, N10 (mỗi số nhỏ hơn 1000).
- Đếm xem có bao nhiêu số trong 10 số trên chia cho 42 mà có số dư khác nhau.
Ví dụ:
Nhập vào 10 số nguyên dương: 39; 40; 41; 42; 43; 44; 82; 83; 84; 85
Số lượng các số nguyên dương chia cho 42 có số dư khác nhau là 6.
(Các số trên chia 42 ta được các số dư lần lượt là: 39; 40; 41; 0; 1; 2; 40; 41; 0 và 1)

Bài 4: Số đúng (5 điểm)
Trong một cuộc truy tìm một xe ô tô chở hàng lậu, nguồn tin đầu tiên cho biết: số của biển xe là số có 3 chữ số đối xúng.
Sau đó công an nhận được thêm thông tin: số biển số là một số nguyên tố. Công an dựa vào dự đoán của một chuyện gia tin học đưa ra sau khi phân tích các nguồn tin và xác định tập các số có thể là số của biển số: biển số nếu viết trong hệ nhị phân cũng là một số đối xứng. Nhờ vậy mà công an đã bắt đúng đối tượng. Hãy cho biết các số mà chuyện gia tin học đã xác định mà số biển xe mà ông ta đã dự đoán đúng.

bài 1:
uses crt;
var i:integer;
   n,k,t,vt:longint;
kt:boolean;
begin
clrscr;
Write(' Nhap so n: '); Readln(n);
k:=n;
repeat
t:=t+(n-((n div 10)*10));
n:=n div 10;
until n mod 10=0;
if t-((t div 10 )*10)=9 then kt:=true
  else kt:=false;
vt:=k-((k div 10)*10);
k:=k div 10;
repeat
if vt>(k-((k div 10)*10)) then kt:=true
  else kt:=false;
k:=k div 10;
until (k mod 10 =0) or (kt= false);
if kt=true then writeln(' So may man')
else writeln(' Khong la so may man ');
readln;
end.

bài 2:
uses crt;
var n,i:integer;
   c:string;
begin
clrscr;
write(' Nhap xau: '); Readln(c);
for i:= n to length(c) do
if c[i]= '#' then
begin
delete(c,i,1);
delete(c,(i-1),1);
end;
for i:= 1 to length(c) do write(c[i]);
readln;
end.

bài 3:
uses crt;
var a,b:array[1..100] of integer;
   i,j,d:integer;
begin
clrscr;
for i:=1 to 10 do
begin
    write(' Nhap a[',i,']: '); Readln(a[i]);
end;
for i:=1 to 10 do
b[i]:=a[i]-((a[i] div 42)*42);
for i:=1 to 11 do
for j:=i+1 to 10 do
if b[i]=b[j] then inc(d);
writeln('co ',(10-d),' so du khac nhau');
readln;
end.

bài 4:
uses crt;
var n,tg,m,i,k:longint;
   kq,y,c:string;
   kt:boolean;
begin
clrscr;
     write(' Nhap so nguyen he thap phan : '); Readln(n);
     k:=n;
     while n<>0 do
     begin
          tg:=n mod 2;
          n:=n div 2;
          str(tg,y);
          kq:=y+kq;
     end;
     str(k,c);
     for i:=1 to length(c) do
     m:=length(c);
     for i:=1 to m do
     if (c[i]=c[m-i+1]) and (kq[i]=kq[m-i+1]) then
     kt:=true;
     if kt=true then write(' Dung ')
     else write(' Sai ');
readln;
end.

Em xem lại bài 1 nhé, anh thấy code có 3 lỗi:
- Em phải gán t:=0 ở đầu chương trình để xóa dữ liệu ở lần chạy trước
- Sau khi kiểm tra số nút, em không thông báo ngay mà lại đi kiểm tra số tiến tiếp cũng bằng biến kt, nên sau đó nó sẽ không giữ được giá trị ở trước
VD: nhập n=123 (tiến nhưng không đủ 9 nút)
- Theo như em code, chỉ cần mọi chữ số ở trước nhỏ hơn số tận cùng là chương trình sẽ cho đúng
VD: nhập n=649 (không tiến), n= 432105 (không tiến, không đủ 9 nút)

bài 1:
uses crt;
var i:integer;
n,k,t,vt:longint;
kt:boolean;
begin
clrscr;
t:=0;
Write(' Nhap so n: '); Readln(n);
k:=n;
repeat
t:=t+(n-((n div 10)*10));
n:=n div 10;
until n mod 10=0;
if t-((t div 10 )*10)=9 then kt:=true
else kt:=false;
vt:=k-((k div 10)*10);
k:=k div 10;
repeat
if (vt>(k-((k div 10)*10))) and (kt=true) then
begin
kt:=true
vt:=k-((k div 10)*10);
end;
else kt:=false;
k:=k div 10;
until (k mod 10 =0) or (kt= false);
if kt=true then writeln(' So may man')
else writeln(' Khong la so may man ');
readln;
end.