!" Đề thi gồm 03 câu, trong 02 trang #$%&%'()%*)" * Các file chương trình và file dữ liệu được đặt tên chính xác như sau: $+, /.01, 0- 20.3%4-5 20.3%67 .1 !""#! SNT.PAS SNT.INP SNT.OUT 2s $%&'()*+ DIV.PAS DIV.INP DIV.OUT 2s ,-)" SQUARE.PAS SQUARE.INP SQUARE.OUT 2s "89.$%+:%;$+)8. /0<= 123(4"'#05673"'8'9:' 08 "#! 1 ;#<)93=': !""#! '&#<(>? !""#!: "#!@ A#B '-''> !C'DE9F'&1)G "#!?$,,, !""#!)9$,,,: "#!)$,,$,$'H'-' "#!? 20.3%4-5"<IJ: "#!K3(n L M 20.3%67"<>?NO"N !""#!-%P3='1-%P @ABC" <6DE.4F.,+:98 ./0@<= I:+ Q "#!K3(7 3=')O%!:?RS# '<+ #"1T 'U'-'FV%'-'1 W"? Dữ liệu vào: @< XY&F"nn L XY&O0 "#!K3(a 1 , a 2 , , a n '-' W%!:K&'-'"Z:KT"'-' L Dữ liệu ra: @<>? [\ 1'F'? Ví dụ: @< @<>? .G.)A . $]$$$ , ^1 ^1$$X]X$_ ^1,X$XX$_ %`$ ^aRbIRcNRRdI N?bNeN?fg$,,, N?bNeN?fg, N?bNeN?fg$,,, N?bNeN?fg, HI H I " )5J+K4%K+:h/0L?=MN<= I:C'>iQjQ%!7'E ?I-'%!'A:k':':'E3=')*" Z:1l'Em'3*'W?%!7'E"Tn1 lW'-'"%!7':'E"Tn1 llJ'-'"?o09K3* 2*C%!'E,7?I-'1l' 1!$)"?^CC3KACPpC:7+: KqC'-'1lWC"Kq'-'1llJ? %'-'C KqC'E1l!O KqC 'E1l!O? Yêu cầu: ri%9O 3='-')"'1'E:KW1Z'-' 1'E%!CS'? Dữ liệu vào:L?=MN< XY&F"!Q$ "#!K3(F3=L?R '-'":C%<? XK&O0KqC'-'1lW3CCZ F%!?R "'-'":C%<? XnK&O0KqC'-'1llJ3CK8'C ZF%!?R "'-'":C%<? Dữ liệu ra :L?=MN<>? X3=)"'E:K'1W? Ví dụ: L?=MN< L?=MN<>? 3 5 nnnnnRsnnnnn R8)!m ???????????????????????????????????????????????????????-K????????????????????????????? R8)!'>B[-P???????????????????????????????????????????????????????????????????????????????????????? R8)!'>B[-P$???????????????????????????????????????????????????????????????????????????????????????? %$`$ NY8' 1 0 1 0 1 0 0 0 1 1 1 1 1 1 1 0 0 1 1 0 0 0 !".+ (Hướng dẫn chấm gồm 03 trang) <OP? IT;:WFtuu$)*'-':0 'E v%!wIY? <QQ@R=S <T%)6U,V)19)4-)7+:W.X 19) .X [Q]:0 7:?? . [Q]:0 7:?? . [Q]:0 7:?$? h <JYJ+ nnnnnnnnnnnROnnnnnnnnnnn Bài 1: Const fi = 'SNT.INP'; Fo = 'SNT.OUT'; var n: longint; f:text; kq: boolean; function nt(n: longint):boolean; var i: longint; begin if n<2 then exit(false); if n=2 then exit(true); for i:=2 to trunc(sqrt(n)) do if n mod i = 0 then exit(false); exit(true); end; begin assign(f,fi); reset(f); readln(f,n); close(f); kq:= true; while n<>0 do begin kq:= kq and nt(n); n:= n div 10; end; assign (f,fo); rewrite(f); if kq then write(f,'1') else write(f,'0'); close(f); end. Bài 2: const %,`$ tfi='DIV.INP'; tfo='DIV.OUT'; var n: longint; a, s: array[0 1001] of longint; res: longint; function ok(t: longint): boolean; var i,u,tong: longint; begin tong:=0; for i:=1 to n do if a[i]<>0 then begin tong:=tong+a[i]; if tong=t then tong:=0; end; exit(tong=0); end; procedure main; var j,u,i,k,t: longint; begin assign(input,tfi); reset(input); assign(output,tfo); rewrite(output); read(n); for i:=1 to n do read(a[i]); s[0]:=0; for i:=1 to n do s[i]:=s[i-1]+a[i]; for k:=n downto 1 do if s[n] mod k=0 then begin t:=s[n] div k; if ok(t) then begin res:=k; break; end; end; writeln(res); close(input); close(output); end; BEGIN main; END. Bài 3 const fi='SQUARE.INP'; fo='SQUARE.OUT'; var f:text; a,nga,doc:array[1 1000,1 1000] of integer; %h`$ i,m,n,d,j:integer; procedure nhap; var i,j:integer; begin assign(f,fi); reset(f); readln(f,m,n); for i:=1 to m do begin for j:=1 to n-1 do read(f,nga[i,j]); readln(f); end; for i:=1 to m-1 do begin for j:=1 to n do read(f,doc[i,j]); readln(f); end; end; begin nhap; d:=0; for i:=1 to m-1 do for j:=1 to n-1 do if nga[i,j]+nga[i+1,j]+doc[i,j]+doc[i,j+1]=4 then inc(d); assign(f,fo); rewrite(f); write(f,d); close(f); end. %`$ . !" Đề thi gồm 03 câu, trong 02 trang #$%&%'()%*)" * Các file chương trình và file dữ liệu được đặt tên chính xác như sau: $+, /.01, 0- 20.3% 4-5 20.3%67. trang) <OP? IT;:WFtuu$)*&apos ;-& apos;:0 'E v%!wIY? <QQ@R=S <T%)6U,V) 19) 4- )7+:W.X 19) .X [Q]:0 7:??. to n-1 do read(f,nga[i,j]); readln(f); end; for i:=1 to m-1 do begin for j:=1 to n do read(f,doc[i,j]); readln(f); end; end; begin nhap; d:=0; for i:=1 to m-1 do for j:=1 to n-1 do