De khao sat HSG Tin9 co Giai

PHÒNG GD & ĐT DUY XUYÊN ĐỀ KHẢO SÁT HỌC SINH GIỎI (Lần 1)
MÔN: TIN HỌC 9
Thời gian: 120 phút (Không kể phát đề)
Câu 1: Viết chương trình Pascal xuất ra màn hình bảng số sau:


Câu 2: Viết chương trình Pascal nhập vào một số nguyên tùy ý, xuất ra kết luận số đó có phải là số Fibonacci không. Dãy Fibonacci để thử: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610 …
Câu 3: Hai số tự nhiên m và n được gọi là hai số bạn bè (cặp số thân thiện) nếu tổng các ước thực sự của m bằng n và ngược lại tổng các ước thực sự của n bằng m. Hãy viết chương trình nhập vào hai số tự nhiên rồi KL chúng có phải là hai số bạn bè không.
(Lưu ý: Các ước thực sự của m là các ước của m nhưng nhỏ hơn m. Ví dụ về hai số bạn bè: 284 và 220)
Câu 4: Viết CT nhập vào một số tự nhiên n, xuất ra các số nguyên tố nhỏ hơn n. Ví dụ:




PHÒNG GD & ĐT DUY XUYÊN ĐỀ KHẢO SÁT HỌC SINH GIỎI (Lần 1)
MÔN: TIN HỌC 9
Thời gian: 120 phút (Không kể phát đề)
Câu 1: Viết chương trình Pascal xuất ra màn hình bảng số sau:


Câu 2: Viết chương trình Pascal nhập vào một số nguyên tùy ý, xuất ra kết luận số đó có phải là số Fibonacci không.
Câu 3: Hai số tự nhiên m và n được gọi là hai số bạn bè (cặp số thân thiện) nếu tổng các ước thực sự của m bằng n và ngược lại tổng các ước thực sự của n bằng m. Hãy viết chương trình nhập vào hai số tự nhiên rồi KL chúng có phải là hai số bạn bè không.
(Lưu ý: Các ước thực sự của m là các ước của m nhưng nhỏ hơn m. Ví dụ về hai số bạn bè: 284 và 220)
Câu 4: Viết CT nhập vào một số tự nhiên n, xuất ra các số nguyên tố nhỏ hơn n. Ví dụ:


Bài giải tham khảo:
Program Bai1_bangso;
Var i, j:byte;
begin
For i:=0 to 3 do
Begin
For j:= 1 to 15 do write(15*i+j:3);
writeln;
end;
readln;
end.

Program Bai2_sofibonacci;
Var fib: array[1..100] of longint;
n:longint; i,j:integer;
Begin
write(`Nhap vao mot so nguyen: `); readln(n);
Fib[1]:=1; Fib[2]:=1; i:=2;
while fib[i] Begin
inc(i);
fib[i]:=fib[i-1]+ fib[i-2];
end;
if n=fib[i] then writeln(n,` la so fibonacci`) else writeln(n,` ko phai la so fibonacci `);
For j:=1 to i do writeln(fib[j],` `);
readln;
end.

Program Bai3_sobanbe;
uses crt;
Var a,b,i,j,tua,tub: integer;
Begin
clrscr;
write(`Nhap vao hai so nguyen `); readln(a,b);
For i:=1 to a-1 do
if a mod i = 0 then tua:=tua+i;
For j:=1 to b-1 do
if b mod j = 0 then tub:=tub+j;
If (a=tub) and (b=tua) then write(`do la 2 so ban be `)
else write(`do khong phai la 2 so ban be`)
readln
end.
Program Bai4_bangsonguyento;
Var n,k,i,dem:word;
begin
writeln(`CHUONG TRINH IN RA CAC SO NGUYEN TO < n`);
write(`Nhap vao mot so n= `);readln(n);
writeln(`Cac so nguyen to nho hon `,n,` la:`);
For k:=2 to n do
Begin
i:=2;
while k mod i <> 0 do inc(i);
if i>=k then
begin write(k:4); inc(dem);
if dem