Quà tết 1 : Đề thi tỉnh long an

SỞ GIÁO DỤC VÀ ĐÀO TẠO
LONG AN
ĐỀ CHÍNH THỨC KỲ THI CHỌN HỌC SINH GIỎI LỚP 9 CẤP TỈNH
MÔN: TIN HỌC
NGÀY THI: 8/4/2014
THỜI GIAN: 150 PHÚT (Không kể thời gian phát đề)




Lưu ý: Thí sinh tạo thư mục là SBD của mình, làm bài và lưu với tên tập tin là bai1.pas, bai2.pas, bai3.pas vào thư mục SBD vừa tạo.

Bài 1: (7.0 điểm)
Viết chương trình nhập vào một số nguyên N (0<N<1000).
a) Kiểm tra xem N có dạng 2k + 7h + 4 hay không. Nếu có xuất ra màn hình “Co dang”, ngược lại “Khong co dang”
b) Nhập vào 2 số nguyên dương a và b (0<a,b<1000).
+ In ra màn hình các số nguyên tố có dạng 2k + 7h + 4 trong khoảng từ a đến b nếu có, ngược lại “Khong co so nguyen to ”
+ In ra màn hình các số Fibonaci có dạng 2k +7h + 4 trong khoảng từ a đến b nếu có, ngược lại “Khong co so Fibonaci ”
Ví dụ:
Nhập
n=13, a = 1, b = 20
Câu a: Co dang
Câu b1: 13 19
Câu b2: 13

Bài 2: (7.0 điểm) Cho hai chuỗi S1, S2 gồm các con số từ 0 đến 9, có độ dài tối đa 200 chữ số. Gọi a là số tự nhiên có các chữ số như chuỗi S1, b là số tự nhiên có các chữ số như chuỗi S2. Viết chương trình nhập chuỗi S1, S2 từ bàn phím và thực hiện yêu cầu sau đây:
a) Xuất ra màn hình tổng các chữ số chẵn của số a và các chữ số lẽ của b.
b) Xuất ra màn hình tổng của a và b.
Ví dụ:
Nhập chuỗi
s1= ‘987698769876987698769876’
s2 = ‘678967896789678967896789’

Câu a 180
Câu b 1666666666666666666666665


Bài 3:(6.0 điểm) A và B chơi trò chơi Bốc sỏi như sau: Đặt trên bàn hai đống sỏi, đống một gồm m viên và đống hai gồm n viên (m và n nguyên dương và m khác n). Hai người chơi thỏa thuận để chọn quyền đi trước. Ví dụ A đi trước, A được quyền lấy ít nhất một viên sỏi từ một đống nào đó trong hai đống hoặc lấy hết một trong hai đống. Sau đó đến lượt B đi B được quyền lấy ít nhất một viên sỏi từ một đống nào đó trong hai đống hoặc lấy hết một trong hai đống. Quá trình cứ tiếp tục như vậy cho đến khi không còn viên sỏi nào trên bàn. Khi đó, ai lấy sau cùng là người thắng cuộc. Em hãy viết chương trình sao cho A đi trước và A luôn thắng cuộc.
Mô tả cách chơi:

Ví dụ m= 6 (số viên sỏi đống I) và n = 4(số viên sỏi đống II) và A đi trước
- Lượt 1:
A bốc 2 viên từ đống I còn 4
B bốc 1 viên từ đống IIcòn 3
- Lượt 2:
Số bi còn ở hai đống 4 3
A bốc 1 viên từ đống I còn 3
B bốc 1 viên từ đống IIcòn 2


- Lượt 3:
Số bi còn ở hai đống 3 2
A bốc 1 viên từ đống Icòn 2
B bốc 1 viên từ đống II còn 1
- Lượt 4:
Số bi còn ở hai đống 2 1
A bốc 1 viên từ đống Icòn 1
B bốc 1 viên từ đống I còn 0
- Lượt 5:
Số bi còn ở hai đống 0 1
A bốc 1 viên từ đống IIcòn 0
Vậy A thắng cuộc.
Yêu cầu:Viết chương trình ghi lại quá trình chơi.
- Dữ liệu vào trong tập tin Input.inp gồm một dòng chứa hai số nguyên lần lượt là m, n mỗi số cách nhau một khoảng trắng.
- Kết quả lưu trong tập tin Output.out
Ví dụ:

Input.inp 6 4
Output.out
---------- Luot di thu: 1 ------------
<<< A di >>>>
A boc 2 o dong 1
Dong 1 con: 4 bi
Dong 2 con: 4 bi
<<< B di >>>>
B boc 1,vien bi o dong 2
---------- Luot di thu: 2 ------------
<<< A di >>>>
A boc 1 o dong 1
Dong 1 con: 3 bi
Dong 2 con: 3 bi
<<< B di >>>>
B boc 1,vien bi o dong 2
---------- Luot di thu: 3 ------------
<<< A di >>>>
A boc 1 o dong 1
Dong 1 con: 2 bi
Dong 2 con: 2 bi
<<< B di >>>>
B boc 1,vien bi o dong 2
---------- Luot di thu: 4 ------------
<<< A di >>>>
A boc 1 o dong 1
Dong 1 con: 1 bi
Dong 2 con: 1 bi
<<< B di >>>>
B boc 1,vien bi o dong 1
---------- Luot di thu: 5 ------------
<<< A di >>>>
A boc 1 o dong 2
**** A thang ***

Bài 1:
uses crt;
var n,a,i,j,k,b:integer;
{-}
function w(n:integer):boolean;
var i,j,a:integer;
begin
a:=0;
for i:=1 to n do
for j:=1 to n do
if n=2*i+7*j+4 then a:=a+1;
if a=0 then w:=false else w:=true;
end;
function z(n:integer):boolean;
var i:integer;
begin
i:=2;
while n mod i<>0 do i:=i+1;
if i=n then z:=true else z:=false;
end;
{-}
begin
clrscr;
write('Nhap so nguyen duong:');readln(n);
if w(n)=true then writeln('Co dang')
else writeln('Khong co dang');
write('Nhap hai so nguyen duong:');readln(a,b);
writeln('1)');k:=0;
for i:=a to b do
begin
if (z(i)=true)and(w(i)=true) then
begin
write(i:3);k:=k+1;
end;
end;
if k=0 then writeln('Ko co so nguyen to');writeln;
writeln('2)');
i:=0;j:=1;k:=0;n:=0;
repeat
k:=i+j;
j:=i;i:=k;
if (k>a)and(w(k)=true)and(k<b)then
begin
write(k:3);n:=n+1;
end;
until k>b;
if n=0 then writeln('Ko co so Fibonaxi');
readln;
end.

BÀI 2: Tìm tổng chuỗi

Code:

uses crt;
const so=['0','1'..'9'];
var st1,st2:string;
    i,n,j,k,l,m,tongl1,tongl2,tongc1,tongc2,code1,code2:integer;
begin
clrscr;
write('nhap chuoi:');readln(st1);readln(st2);
for i:=1 to length(st1) do if st1[i]in so then m:=0 else st1[i]:=' ';
for i:=1 to length(st2) do if st2[i]in so then m:=0 else st2[i]:=' ';
while pos(' ',st1)<>0 do delete(st1,pos(' ',st1),1);
while pos(' ',st2)<>0 do delete(st2,pos(' ',st2),1);
for i:=1 to length(st1) do if odd(ord(st1[i])-48)=true then tongl1:=tongl1+(ord(st1[i])-48);
for i:=1 to length(st2) do if odd(ord(st2[i])-48)=true then tongl2:=tongl2+(ord(st2[i])-48);
writeln('tong le 1 la:',tongl1);
writeln('tong le 2 la:',tongl2);
for i:=1 to length(st1) do if odd(ord(st1[i])-48)=false then tongc1:=tongc1+(ord(st1[i])-48);
for i:=1 to length(st2) do if odd(ord(st2[i])-48)=false then tongc2:=tongc2+(ord(st2[i])-48);
writeln('tong chan 1 la:',tongc1);
writeln('tong chan 2 la:',tongc2);
val(st1,l,code1);
val(st2,m,code2);
if (code1<>0) or (code2<>0) then write('error') else k:=l+m;
writeln('tong cua hai so:',k);
readln;
end.