Đề thi khảo sát chọn hsg cấp trường môn Tin học 11: Bài 1: Một số có tổng các ước nhỏ hơn nó bằng chính nó được gọi là số hoàn chỉnh. Ví dụ: 6 có các ước nhỏ hơn nó là 1, 2, 3. Tổng 1 + 2 + 3 = 6 nên 6 là số hoàn chỉnh. Viết chương trình xét xem một số n được nhập từ bàn phím có phải là số hoàn chỉnh không? Ví dụ: Khi nhập n = 6 thì xuất: “6 la so hoan chinh”. Khi nhập n=10 thì xuất “ 10 khong la so hoan chinh”. Bài 2: Lập trình: Nhập vào số tự nhiên N (1 < N < 65000). Hãy kiểm tra số N vừa nhập có phải là số nguyên tố không ? Nếu đúng thì thông báo ra màn hình đây là số nguyên tố, ngược lại thì phân tích số N thành tích các thừa số nguyên tố. Bài 3...
Trang 1Trường THPT Quang Trung
Đống Đa
ĐỀ THI KHẢO SÁT CHỌN ĐỘI TUYỂN HỌC SINH GIỎI KHỐI 11
Môn: Tin học - Thời gian: 90’
Bài 1: Một số có tổng các ước nhỏ hơn nó bằng chính nó được gọi là số hoàn chỉnh.
Ví dụ: 6 có các ước nhỏ hơn nó là 1, 2, 3 Tổng 1 + 2 + 3 = 6 nên 6 là số hoàn chỉnh
Viết chương trình xét xem một số n được nhập từ bàn phím có phải là số hoàn chỉnh không?
Ví dụ: Khi nhập n = 6 thì xuất: “6 la so hoan chinh” Khi nhập n=10 thì xuất “ 10 khong la so hoan chinh”
Bài 2: Lập trình:
Nhập vào số tự nhiên N (1 < N < 65000) Hãy kiểm tra số N vừa nhập có phải là
số nguyên tố không ? Nếu đúng thì thông báo ra màn hình đây là số nguyên tố, ngược lại thì phân tích số N thành tích các thừa số nguyên tố
Bài 3: Nhập dãy số nguyên A gồm N phần tử (N<100) Ki m tra dãy s có đ i x ngể ố ố ứ hay không? Ki m tra dãy có tăng d n hay không? N u dãy không ph i là m ngể ầ ế ả ả tăng d n, hãy s p x p nó thành m ng tăng d n.ầ ắ ế ả ầ
Ví d :ụ M ng A:ả 1 15 6 7 4 7 6 15 1
K t qu :ế ả Mang A doi xung, Mang A khong phai la mang tang dan
M ng A:ả 2 5 6 7 14 17 26 26 31
K t qu :ế ả Mang A khong doi xung, Mang A khong phai la mang tang dan
S p x p: 2 5 6 7 14 17 26 31ắ ế
Trang 2Bài 1.
Program Bai1;
Uses crt;
Begin
clrscr;
write('nhap so n: ');readln(n);
s:=0;
0,50
if s = n then
Begin
write(n, ' la so hoan chinh vi');
0,50
write(1);
for i:= 2 to n -1 do if n mod i = 0 then write(‘+’,i);
writeln(‘=’,n);
End
0,75
Else writeln(n, ‘khong phai so hoan chinh’);
Readln
End
0,25
Bài 2
Program Bai2;
Uses Crt;
Var
m, n: Longint;
i: integer;
0.5
Begin
repeat
ClrScr;
Write(‘Nhap mot so tu nhien: ');Readln(n);
Until (n>1) and (n<=65000);
i:=2;
While (n mod i <> 0 do
i:= i+1;
if i = n then
Writeln (n, ' la so nguyen to')
2
Trang 3else {tach so n thanh cac thua so nguyen to}
Begin
m:=n;
Write (n, 'duoc tach thanh cac thua so nguyen to = ');
While (m mod 2 = 0) do
1.25
Begin
m:=m div 2;
Write('2');
if m>0 then write ('.');
End;
1.25
i:=3;
While (m > 2) do
Begin
While (m mod i = 0) do
1
Begin
m:=m div i;
Write (i);
if m>2 then Write ('.');
End;
i:=i+2;
End;
End;
Readln;
End
2
Bộ Test thư
Nhap mot so tu nhien: 5
Nhap 1 so tu nhien: 15
Nhap 1 so tu nhien: 3456
5 la so nguyen to
15 duoc tach thanh tich cac thua so nguyen to: 3.5 2.2.2.2.2.2.2.3.3.3
Bài 3
Ý tưởng thuật toán mảng đối xứng
Var Kt: boolean;
For i:=1 to N do
If a[i]=a[N-i+1] then kt:= true
Else kt:= false;
If kt:=true then Write (‘Mang doi xung’)
Else Write (‘Mang ko doi xung’);