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

Tuyển tập đề ôn thi học sinh giỏi môn tin 9 cấp tỉnh, Đề thi học sinh giỏi tin 9, đề thi môn tin 9 cấp tỉnh, ôn thi học sinh giỏi môn tin 9, Tổng hợp đề thi môn tin 9 cấp tỉnh, tài liệu ôn thi môn tin 9 cấp tỉnh, đề thi có đáp án môn tin 9.

ĐỀ 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ố nguyên 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

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;

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

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.