Đề Thi HSG TX Hương Trà TIN 9 ( Mới 2013)

PHÒNG GD&ĐT HƯƠNG TRÀ

ĐỀ THI CHÍNH THỨC
ĐỀ THI CHỌN HỌC SINH GIỎI CẤP THỊ XÃ
NĂM HỌC 2012-2013
MÔN: TIN HỌC 9. Thời gian làm bài: 150 phút


Câu 1 (3 điểm):
Viết chương trình tính tổng

Câu 2 (3 điểm):
Nhập vào từ bàn phím số nguyên dương N (0 < N
2*109). Tính và đưa ra màn hình tổng bình phương các chữ số của N.
Câu 3 (4 điểm):
Một số nguyên dương N được gọi là số hoàn thiện, nếu tổng các ước số của N bằng chính N (Tính luôn số 1). Ví dụ: 6 = 1+2+3 nên số 6 được gọi là số hoàn thiện. Viết chương trình kiểm tra xem số N có phải là số hoàn thiện hay không, N được nhập từ bàn phím. In ra màn hình theo dạng sau:
Ví dụ: Nhập A=6
Chương trình in ra màn hình: 6 là số hoàn thiện
Nhập A=8
Chương trình in ra màn hình: 8 không phải là số hoàn thiện
Câu 4 (3 điểm):
Viết chương trình nhập từ bàn phím hai số nguyên dương, mỗi số gồm ba chữ số và in chi tiết kết quả phép nhân ra màn hình như ví dụ sau:
456
x
789
------
4104
3648
3192
-----------
359784
Câu 5 (3 điểm): Viết liên tiếp dãy các số tự nhiên bắt đầu từ 1 ta được dãy vô hạn các chữ số 1234567891011121314..... (1). Hỏi: Chữ số ở vị trí thứ K (K
Z+) trong dãy (1) là chữ số nào?
Em hãy viết chương trình yêu cầu nhập số K từ bàn phím và in ra trên màn hình kết quả là chữ số nằm ở vị trí thứ K trong dãy (1) ở trên.
Câu 6 (4 điểm):
Cho mảng A các số nguyên gồm n phần tử. Viết chương trình tạo mảng B[1..n]. Trong đó B[i] là tổng giá trị của i phần tử đầu tiên của mảng A.












PHÒNG GIÁO DỤC VÀ ĐÀO TẠO HƯƠNG TRÀ
ĐÁP ÁN, HƯỚNG DẪN CHẤM
ĐỀ THI CHỌN HỌC SINH GIỎI NĂM HỌC 2012-2013.
MÔN: TIN HỌC 9.

Câu 1 (3 điểm): Viết chương trình tính tổng

Program Cau_1;
Var n,i: integer;
S: real;
Begin
Write (`Nhap n = `); readln(n);
S :=0;
For i:=1 to n do S:= S+1/(2*i-1);
Writeln (`Tong la S = `, S:6:2);
readln
End.
Câu 2 (4 điểm): Nhập vào từ bàn phím số nguyên dương N (0 < N
2*109). Tính và đưa ra màn hình tổng bình phương các chữ số của N.
Program Cau_2;
Var n, s, tg : longint;
Begin
Repeat
write (`N = `); readln(n);
If (n <= 0) or (n > 2000000000) then
Writeln (`moi ban nhap lai.`);
Until (n > 0) and (n <= 2000000000);
Write (`Tong binh phuong cac chu so cua `, N , ` la : `);
s := 0;
while n>0 do
begin
tg := n mod 10;
s := s + sqr(tg);
end;
writeln(s)
End.
Câu 3 (3 điểm): Một số nguyên dương N được gọi là số hoàn thiện, nếu tổng các ước số của N bằng chính N (Tính luôn số 1). Ví dụ: 6 = 1+2+3 nên số 6 được gọi là số hoàn thiện. Viết chương trình kiểm tra xem số N có phải là số hoàn thiện hay không, N được nhập từ bàn phím. In ra màn hình theo dạng sau:
Ví dụ: Nhập A=6
Chương trình in ra màn hình: 6 là số hoàn thiện
Nhập A=8
Chương trình in ra màn hình: 8 không phải là số hoàn thiện
Program Cau_3;
uses crt;
var n,i,tong:integer;
Begin
clrscr;
write(`n:`);
readln(n);
tong:=1;
for i:=2 to (n div 2) do
if (n mod i)=0 then tong:=tong+i ;
if n=tong