Đề 11 ô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Ố 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]<a[j]

then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;

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