Đề thi + đáp án môn tin 9 cấp tỉnh 2020 2021 ôn thi học sinh giỏi môn Tin học 9 cấp tỉnh

ĐỀ THI THỬ SỐ 1 (VÒNG 2)
Bài 1: (5 điểm) Nhập vào 1 số tự nhiên N với (0 < N ≤ 1019).
a) Hãy cho biết chữ số lớn nhất của số tự nhiên vừa nhập.
b) Kiểm tra xem số đó có đối xứng khơng.
Ví dụ:
Dữ liệu vào (bàn
phím)
3521
32123

Dữ liệu ra (màn
hình)
5
Khong doi xung
3
Doi xung

Bài 2. (7 điểm)
Viết chương trình nhập vào mảng gồm n phần tử
(n<=100) tìm và hiển thị vị trí phần tử có giá trị lớn nhất, sau
đó sắp xếp các phần tử theo thứ tự tăng dần và hiển thị các
phần tử sắp xếp đó ra màn hình.
Bài 3. (8 điểm) Nhập vào 2 số nguyên m, n kiểm tra xem
chúng có phải là số nguyên tố tương đương không?
Hai số gọi là nguyên tố tương đương nếu chúng có cùng
các ước số ngun tố. Ví dụ 15 và 75 là các số nguyên tố
tương đương. Bởi vì 15=3*5 trong khi 75=3*5^2, có cùng ước
số ngun tố là 3 và 5. Tương tự 12=2^2*3 và 18=2*3^2 là
hai số ngun tố tương dương vì có cùng hai ước số nguyên tố
là 2 và 3. Tuy nhiên 12 và 60 ko nguyên tố tương đương vì

12=2^2*3 và 60=2^2*3*5, 60 có ước số nguyên tố 5 trong khi
12 khơng có.
HƯỚNG DẪN ĐỀ THI THỬ SỐ 1
Bai 1.
Program bai1;
Uses crt;
Var s, s1, max: string;
i: integer;
Begin
Clrscr;
Write('Nhap n: '); readln(s);
max:='';
for i:=1 to length(s) do if s[i]>max then
max:=s[i];
Writeln('Chu so lon nhat la ',max);
s1:='';
for i:=length(s) downto 1 do s1:=s1+s[i];
if s1=s then writeln (s,' la xau doi xung')
else writeln (s,' khong la xau doi xung');
Readln;
End.


Bai 2.
Program Tim_vi_tri;
Uses crt;
var a: array [1 ..100] of integer;
var i,n,j, tg,max, vt: integer;
begin

clrscr;
write (' nhap so phan tu cua mang '); readln(n);
writeln (' moi nhap cac phan tu cua mang ');
for i:=1 to n do
begin
write ('A[‘, i,'] = ');
readln(a[i]);
end;
Max:= a[1]; vt:=1;
For i:=1 to n do
begin
If A[i]>max then
Begin
Max:=a[i]; vt:=i;
End;
End;


Writeln ('gia tri lon nhat la ', max, ' nam o vi tri
thu ',vt);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j]then
Begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
End;
Writeln (' day sau khi sap xep la ');
for i:=1 to n do

write( a[i]: 4);
readln;
End.
Bai 3 (lỗi)
Program NgTo_TD;
Uses Crt;
Type Mang=Array[1..100] Of Integer;
Var M,N:Integer;
{Ham kiem tra so co phai la NT hay ko}
Function SNT (n:integer):boolean;
Var i:integer;
Begin


If (n=0)Or(n=1) then NT:=False
Else
Begin
i:=2;
While (n mod i <> 0)and(iIf i>Sqrt(n) then NT:=True Else Nt:=False;
End;{if}
End;
{Kiem tra so NT tuong duong}
Function Nttd(N,M:Integer):Boolean;
Var J,K,I,D,Dem,S:Integer;
A,B:Mang;
Begin
D:=0;
For J:=1 To N Do If (SNT(J)) And (N Mod J=0)
Then

Begin D:=D+1; A[D]:=J End;
Dem:=0;
For K:=1 To M Do If (SNT(K)) And (M Mod K=0)
Then
Begin Dem:=Dem+1; B[Dem]:=K End;
S:=0;
If D=Dem Then For I:=1 To D Do If A[I]=B[I]
Then Inc(S);
If S=D Then Nttd:=True Else Nttd:=False;
End;
Begin
Clrscr;
Write('Nhap M:');Readln(M);
Write('Nhap N:');Readln(N);
If (Nttd(M,N)) Then Writeln(M,' Va ',N,' La Hai So
Nguyen To Tuong Duong')
Else Writeln(M,' Va ',N,' Khong Phai La Hai So NT
Tuong Duong');


Readln
End.