DE THI HS GIOI

SỞ GIÁO DỤC ĐÀO TẠO KỲ THI HỌC SINH GIỎI LỚP 9 CẤP TỈNH
TỈNH BÀ RỊA - VŨNG TÀU NĂM HỌC 2007-2008
Ngày thi 05 tháng 03 năm 2008
Môn thi: Tin Học
Thời gian:150 phút

Lập trình để giải các bài toán sau đây bằng ngôn ngữ Pascal
Bài 1: (7 điểm)
Nhập vào 1 số tự nhiên N với (0 < N ≤ 65535).
Hãy cho biết chữ số lớn nhất của số tự nhiên vừa nhập.
Hãy in đảo ngược số N.

Ví dụ: N=6548
Chữ số lớn nhất là: 8
Số in ngược là: 8456

Bài 2: (7 điểm)
Nhập vào 1 số tự nhiên N với (0 < N ≤ 65535), phân tích số vừa nhập thành các thừa số nguyên tố, nếu số vừa nhập là số nguyên tố thì chỉ thông báo ra màn hình đây là số nguyên tố.
Ví dụ:
- Nếu số vừa nhập là 300, thì in ra màn hình 300 = 2. 2. 3. 5. 5
- Nếu số vừa nhập là 307, thì in ra màn hình “307 là số nguyên tố”

Bài 3: (6 điểm)
Tìm tất cả các số nguyên dương x, y, z thỏa mãn phương trình: ax + by + cz = n; trong đó a, b, c, n là các số nguyên dương (a, b, c ( 65535; n ( 2.147.483.647)

Yêu cầu kỹ thuật:
1. Kiểm tra việc nhập dữ liệu thỏa mãn yêu cầu của đề bài. Nếu người sử dụng nhập sai thì thông báo nhập sai và hỏi người dùng có muốn nhập lại hay không, nếu không thì kết thúc chương trình.
2. Không được dùng quá 2 vòng lặp lồng nhau và điều kiện dừng của mỗi vòng lặp không được vượt quá ngưỡng mà từ đó ta biết chắc chắn phương trình không có nghiệm.
3. Nếu phương trình có nghiệm thì liệt kê có thứ tự các bộ nghiệm của phương trình theo dạng sau:
Giả sử phương trình có dạng 15x + 28y + 24z = 454, ta in ra màn hình như sau:
STT x y x
1 10 10 1
2 14 7 2
Ngược lại không thì thông báo phương trình không có nghiệm.
SỞ GIÁO DỤC ĐÀO TẠO KỲ THI HỌC SINH GIỎI LỚP 9 CẤP TỈNH
TỈNH BÀ RỊA - VŨNG TÀU NĂM HỌC 2007-2008
Ngày thi 05 tháng 03 năm 2008
Môn thi: Tin Học

HƯỚNG DẪN CHẤM ĐỀ CHÍNH THỨC
(Hướng dẫn này có 02 trang)
Cách chấm điểm chung cho 3 bài như sau:
- Chương trình chạy cho kết quả đúng: khai báo đầy đủ, trình bày có cấu trúc rõ ràng cho điểm tối đa. Không khai báo mỗi biến trừ 0.5 đ.
- Chương trình cho kết quả sai: chỉ chấm phần các ý chính của thuật toán, mỗi ý đúng cho 0.5 đ không vượt quá 40% số điểm của câu.
Bài 1 (7 điểm)
Program Bai1;
Var s,n,m:word; dem,max:byte;
Begin
Repeat
Write(`Nhap N:`); readln(N);
Until (N>0) and (N<=65000);
s:=0; max:=0;
repeat
m:= (n mod 10);
n:= ( n div 10);
s:=s*10+m;
if max max:=m;
until (n=0);
Writeln(`Chu so lon nhat:`,`max=`,max);
Writeln(`So in nguoc:`,s);
Readln;
End.
Bài 2 (7 điểm)
Program bai2;
Var m, n: longint;dem,i:integer;
Begin
Write(`Nhap mot so tu nhien:`);Readln(n);
dem:=0;
m:=n;
Write(n,`=`);
While (m mod 2 = 0) do
Begin
dem:=dem+1;
m:=m div 2;
write(`2`);
if m>0 then write(`.`);
End;
i:=3;
While (m>0) do
Begin
While (m mod i = 0) do
Begin
dem:=dem+1;
m:=m div i;
write(i);
if m>0 then write(`.`);