DE THI TINH NAM HOC 20142015

ĐỀ THI TỈNH NĂM HỌC 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ố ngun 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ự
đốn đúng.


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.
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.