Đề 11 ôn thi học sinh giỏi môn Tin học 9 cấp tỉnh
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (52.36 KB, 5 trang )
ĐỀ THI THỬ SỐ 11
Bài 1. (8 điểm) Số điện thoại di động của nhà mạng Viettel
bao gồm các đầu số sau:
- Đối với số có 10 chữ số sẽ có đầu số: 096; 097; 098
- Đối với số có 11 chữ số sẽ có đầu số: 0162; 0163; 0164;
0165; 0166; 0167; 0168; 0169
Yêu cầu:
Nhập vào một số điện thoại bất kì, kiểm tra xem số đó có
thuộc số di động của nhà mạng Viettel hay khơng?
Ví dụ: Nhập số 01631211589
Kết quả số điện thoại trên thuộc nhà mạng Viettel với 11
chữ số
Bài 2. (5 điểm) Viết chương trình nhập vào một dãy số gồm n
số nguyên, với n là số tự nhiên cho trước.
Yêu cầu: Tách dãy số trên thành hai dãy số: dãy số chẵn, dãy số
lẻ theo thứ tự tăng dần và xuất ra màn hình dãy số đã nhập,
dãy số chẵn, dãy số lẻ.
Ví dụ nhập n= 10; 5 2 7 9 1 3 9 4 -2 0
Dãy số nguyên chẵn: -2 0 2 4
Dãy số nguyên lẻ: 1 3 5 7 9 9
Bài 3 (7 điểm) Nhập vào một dãy số gồm m số nguyên bất kỳ,
với m là số tự nhiên nhỏ hơn 100. Yêu cầu:
Tìm trong dãy đã nhập và xuất ra màn hình số có nhiều
ước nhất, với các ước là các số thuộc dãy vừa nhập.
Ví dụ: Dãy số đã nhập: 2 5 8 4 10 12 28 15 20
Số tìm được là: 20
HƯỚNG DẪN ĐỀ THI THỬ SỐ 11
Bài 1.
program so_viettel;
uses crt;
var i,s,d:integer;
so,so10,so11:string;
Begin
clrscr;
write('nhap so can kiem tra: ');readln(so);
s:=length(so);
so10:=copy(so,1,3);
so11:=copy(so,1,4);
for i:=1 to s do inc(d);
if d=10 then
if (so10='096') or (so10='097') or (so10='098') then
writeln (so:6,' la so dtdd mang viettel co 10 so');
if d=11 then
if (so11='0162') or (so11='0163') or (so11='0164')
or (so11='0165') or (so11='0166') or (so11='0167')
or (so11='0168') or (so11='0169') then
writeln(so:6,' la so dtdd mang viettel co 11 so');
Readln
End.
Bai 2
program tach_mang_chan_le;
uses crt;
var n,i,j,t:longint;
A:array [1..100000]of longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
for j:=1 to i do if a[i]
end;
write('Day so chan: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' '); writeln;
write('Day so le: ');
for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');
readln
end.
Bai 3 (luu y: chua in dung kq)
Program timso_nhieu_uoc_nhat;
uses crt;
var n,i,maxu,d:integer;
A:array [1..100]of integer;
FUNCTIon uoc(N:integer):integer;
var i,u:integer;
begin u:=0;
for i:=1 to n do
begin if n mod i=0 then u:=u+1; end;
Uoc:=u;
end;
BEGIN
clrscr;
write('nhap n= '); readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');readln(a[i]);
end;
for i:=1 to n do
begin
write(a[i]:3);
end;
writeln;
maxu:=uoc(a[1]);
for i:=1 to n do
begin
if uoc(a[i])>maxu then
maxu:=uoc(a[i]);inc(d);
end;
if d=maxu then writeln('so co uoc lon nhat la: ',a[i]);
READLN
END.
