Đề 2 ôn thi học sinh giỏi môn Tin học 9 cấp tỉnh

ĐỀ THI THỬ SỐ 2 (VÒNG 2)
Bai 1. (7 điểm)
Viết chương trình nhập mảng gồm n phần tử kiểu nguyên (n<=100) và
cho ra màn hình phần tử xuât hiện nhiều nhất và số lần xuât hiện của nó trong
mảng.
Bài 2. (8 điểm)
Viết chương trình nhập vào từ bàn phím một số ngun dương n
(n≤10000), sau đó tính và in lên màn hình.
a) Số n có bao nhiêu chữ số ?
b) Tìm tất cả các số hịan hảo nhỏ hơn n.
c) Thực hiện phép biến đổi: Chuyển chữ số lớn nhất của số n lên đầu
cùng
Ví dụ N=21095 → Kết quả: 92105.
Bài 3. (5 điểm)
Viết chương trình nhập vào từ bàn phím xâu S. Xóa hết kí tự trùng nhau
trong xâu và in ra màn hình xâu S sau khi xóa các kí tự trùng nhau.


HƯỚNG DẪN ĐỀ THI THỬ SỐ 2
Bai 1.
Program Tansuat;
Uses crt;
var i,k,j,n,max:integer;
b,st: array [1..100] of integer;
begin
clrscr;
write ('Nhap so pt:'); readln (n);
for i:=1 to n do
Begin
write('st[',i,']=');readln(st[i]);
End;

b[i]:=0;
for i:=1 to n do
for j:=i to n do
if st[i]=st[j]then inc(b[i]);
max:=b[1];
for i:=1 to n do if b[i]>max then max:=b[i];
write('--So xuat hien nhieu nhat la--');
for i:=1 to n do
if max=b[i]then write(st[i],' ');
write('---xuat hien--- ',max,' –lan--');
Readln
End.
Bài 2.


a)
program ktra_so_hoan_hao;
uses crt;
var i,n:integer;
function shh(n:integer):boolean;
var i,tam:integer;
ok:boolean;
begin
ok:=false;
tam:=0;
for i:=1 to n-1 do
if n mod i = 0 then tam:=tam+i;
if tam=n then ok:=true;
shh:=ok;

end;
BEGIN
clrscr;
write ('nhap n= ');readln(n);


for i:=1 to n do
if shh(i)=true then write (i,' ');
readln
END.
b) program ktra_so_hoan_hao;
uses crt;
var i,n:integer;
function shh(n:integer):boolean;
var i,tam:integer;
ok:boolean;
begin
ok:=false;
tam:=0;
for i:=1 to n-1 do
if n mod i = 0 then tam:=tam+i;
if tam=n then ok:=true;
shh:=ok;

end;


BEGIN
clrscr;
write ('nhap n= ');readln (n);

for i:=1 to n do
if shh(i)=true then write (i,' ');
readln
END.

Bai 3.
Program Xoa_ki_tu_trung;
Uses crt;
Var i, j, n: integer;
S: string;
Begin
Clrscr;
Write (‘Nhap xau S: ‘); Readln(S);
N:=length(S);
I:=1;
While i< n do
Begin


J:=i+1;
While j<=n do
Begin
If S[i]=S[j] then
Begin
Delete(S,j,1);
N:=n-1;
End
Else j:=j+1;
End;
I:=i+1;

End;
Writeln (‘Xau con lai ‘, S);
readln
End.
------------------------------Program Xoa_ki_tu_trung;
Uses crt;
Var i, j, n: integer;
S: string;
Begin


Clrscr;
Write ('Nhap xau S: '); Readln(S);
N:=length(S);
for i:=1 to n do
Begin
for j:=2 to n do
Begin
If S[i]=S[j] then
Begin
Delete (S,j,1);
N:=n-1;
End
End;
End;
Writeln ('xau con lai ', S);
readln
End.