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Ố (VÒNG 2) Bài 1: (5 điểm) Nhập vào số tự nhiên N với (0 < N ≤ 1019) a) Hãy cho biết chữ số lớn 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 (màn hình) Khong doi xung Doi xung Bài (7 điểm) Viết chương trình nhập vào mảng gồm n phần tử (nmax then max:=s[i]; Writeln('Chu so lon nhat la ',max); s1:=''; for i:=length(s) downto 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 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 begin write ('A[‘, i,'] = '); readln(a[i]); end; Max:= a[1]; vt:=1; For i:=1 to n 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 for j:=i+1 to n if a[i]>a[j]then Begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; End; Writeln (' day sau sap xep la '); for i:=1 to n write( a[i]: 4); readln; End Bai (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(iSqrt(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 ... 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; ... end; Max:= a [1] ; vt: =1; For i: =1 to n 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 for j:=i +1 to n if... '); readln(s); max:=''; for i: =1 to length(s) if s[i]>max then max:=s[i]; Writeln('Chu so lon nhat la ',max); s1:=''; for i:=length(s) downto s1:=s1+s[i]; if s1=s then writeln (s,' la xau doi