61 Bai Tap Pascal
-
Upload
trongquang -
Category
Documents
-
view
250 -
download
1
Transcript of 61 Bai Tap Pascal
-
7/23/2019 61 Bai Tap Pascal
1/40
B i 4: Vit chngtrnh giiphngtrnhbc 1 (ax+b = 0)ProgramGII!P"#$%G!&'I%"!!%"&*Varabx:r,a-*,gin
-r.cr*/rit,-n(GII P"#$%G &'I%" %"&: +=0)*/rit,-n(222222222222222222222222222222222222222222222222222222222222)*
/rit, (%hapa= )*r,a3-n(a)*/rit,(%hapb= )*r,a3-n(b)*I4(a=0)th,n
I4(b=0) th,n/rit,-n(Ph5ong trinhco6o .o nghi,m)
7-.,
7-.,8rit,-n(Ph5ongtring6onghi,m)
7n39
/rit,-n(Ph5ong trinhco nghi,mx=2ba:;:
-
7/23/2019 61 Bai Tap Pascal
2/40
I4a=0th,nI4b=0 th,n
I4c=0th,n/rit,-n(Ph5ong trinh co 6o.onghi,m)
7-.,
7-.,/rit,-n(Ph5ong trinh6onghi,m)
7-.,,gin
/rit,-n(Ph5ong trinhco mot nghi,m:x=2cb:;:
-
7/23/2019 61 Bai Tap Pascal
3/40
7n39
/rit,-n(222222222222222222222222222222222222222222222222222222222222222)*/rit,(%hap a=)* ',a3-n(a)*/rit,(%hapb=)* ',a3-n(b)*/rit,(%hap c=)* ',a3-n(c)*/rit,(%hap 3=)* ',a3-n(3)*min:=a*I4b@min th,n min:=b*I4 c@min th,nmin:=c*
I43@min th,n min:=3*/rit,-n(o nhonhat-a:min:;:
-
7/23/2019 61 Bai Tap Pascal
4/40
7n39
/rit,-n(22222222222222222222222222222222222222)*/rit,(%hap6ao.o gia:)*r,a3-n(x)*gio:= x 3i6TA00*x:=xmo3 TA00*ph5t:=x 3i6 A0*x:=xmo3 A0*/rit,-n(,t D5a = giogio: ph5t ph5t : xgia)*',a3-n*
B i 1 1:%hp6MotZm6M bFnCNnhcda metJWngtrfn9 a5JY nhp 6MometJi\m(x)bt C 6MCi\mtra x,m nYcY th5ecJWngtrfnhaChXngProgramI7O!&'!RI7O!&"#$!R#$%G!&'$%*#.,. crt*Varx00xaa3r:r,a-*,gin
/rit,-n(I7O &'RI7O &"#$ R#$%G &'$%:)*/rit,-n(22222222222222222222222222222222222222222222222222222222)*/rit,(%hap banCinh '= )*r,a3-n(r)*/rit,(%haptoa 3o tam 35ongtron =)* r,a3-n(x00)*
/rit,(%haptoa 3o3i,m a= )* r,a3-n(xa a)*3:='&('(xa2x0)+'(a20))*I4r=3th,n
/rit,-n(Ri,m namtr,n35ong tron)7-.,
I43?r th,n/rit,-n(Ri,mnamngoai35ongtron)7-.,/rit,-n(Ri,m namtrong 35ong tron)*
7n39',a3-n*
B i 1 2: &Nnhx(VHi x-M . thc)9
Program!Q#&"#!*#.,. crt*Varxj:r,a-*,gin
/rit,-n(E&I%" Q# &"#:k)*/rit,-n(2222222222222222222222222222222222)*/rit,(%hapx = )* r,a3-n(x)*/rit,(nhap= )* r,a3-n()*I4x?=0th,n
,gin
7-.,7n3
j:=,xp(B-n(x))*
/rit,-n(x l=j:;:
-
7/23/2019 61 Bai Tap Pascal
5/40
,gin
7n39
-r.cr*/rit,-n( &I%" %GII &"#:)*/rit,-n(2222222222222222222222222222222222)*/rit,(%hap n =)* r,a3-n(n)*gt:=1*or i:=1ton3o
gt:=gtBi*
/rit,-n(n=gt)*',a3-n*
B i 1 4:&Nnh xn(VHin -M .ng5^n ChXngZm)9Program&I%"!!Q#!&"#!%*#.,. crt*Varinx:int,g,r*
-t:r,a-*,gin
7n39
/rit,-n(&I%" Q# &"#:)*
/rit,-n(2222222222222222222222222222222222)*/rit,(%hapx =)*r,a3-n(x)*/rit,(%hap n =)* r,a3-n(n)*-t:=1*or i:=1ton3o
-t:=-tBx*/rit,-n(xln=-t:;:
-
7/23/2019 61 Bai Tap Pascal
6/40
&rang A
-
7/23/2019 61 Bai Tap Pascal
7/40
n
B i 1 6:&Nnh t]ng =xii=1
Program&I%"!&$%G
-
7/23/2019 61 Bai Tap Pascal
8/40
VarisC:int,g,r*,gin
/rit,-n("#$%G &'I%"&IO $:)*/rit,-n(2222222222222222222222222222222222)*or i:=1to3o
or s:=0to3oor C:=0 to3o
i4 (100Bi+10Bs+C)=(iBiBi+sBsBs +CBCBC) th,n
/rit,-n(isC=ilT +slT+ ClT)*
7n39',a3-n*
Bi 19: %hp6Mo met .ng5^nChXngZmCi\mt rax,mnYcYphi -M .ng5^n thaChXngProgram$!%G#7%!&$*#.,. crt*Varin:int,g,r*,gin
-r.cr*/rit,-n(I7O &'$%G#7% &$:)*
/rit,-n(2222222222222222222222222222222222222222)*/rit, (%hap .o can Ci,m tran=)* r,a3-n(n)*I4(n=0) or (n=1) th,n
/rit,-n(n hong phai-a.ong5,nto)7-.,
,gin
7n3*
i:=1*',p,at
i:=i+1*#nti-(n mo3i= 0) or(iBi?n)*I4iBi?nth,n /rit,-n (n -a.o ng5,nto)
7-.,/rit,-n (n Chongphai -a .ong5,nto)*
7n39',a3-n*
B i 2 0: In ra cFc .ng5^n t nhS hn houcb`ng % (% -M . ng5^nChXngZmJKcnhp tL bMn phNm)9Program!$!%G#7%!&$*#.,. crt*Varnit:int,g,r*,gin
-r.cr*
/rit,-n(I% ' $ %G#7% $ @=%)*/rit,-n(222222222222222222222222222222222222222222222)*/rit,(%hap n= )*r,a3-n(n)*I4n@< th,n
/rit,-n(hongco.ong5,nto nao@=n)7-.,,gin
/rit,-n(ac .o ng5,nto @= n -a:)*or i :=< ton 3o,gin
t:= 1*
&rang
-
7/23/2019 61 Bai Tap Pascal
9/40
7n3*',a3-n*
7n39
7n3*
',p,att:=t+1*
#nti- (imo3t= 0)or ( tBt?i )*I4( tBt?i) th,n
/rit,(i:;)*
Bi 21:%hp T -o_i tivn 6M . tivn cwnJ]i9 "[ tmttccFct]hKp cYJKccdaT -o_itivntr^ncho .tivn6La nhp9ProgramR$I!&I7%*#.,. rt*Var xjnish.:-ongint*,gin
-r.cr*/rit,-n("#$%G &'I%" R$I&I7%:)*/rit,-n(222222222222222222222222222222222222222)*
/rit,(%hap.oti,ncan 3oin =)*r,a3-n(n)*/rit,(%hap-oaiti,nth5 1:)*r,a3-n(x)*/rit,(%hap-oaiti,nth5
-
7/23/2019 61 Bai Tap Pascal
10/40
B i 2 3:&_obng. 3_ng .a5:
0 1 < T ; A 10 11 1< 1T 1; 1 1A 1 1 19999999999999999999999999999999999999999999999999999999999999999999999999
Program%G!$*
#.,. crt*Var isn:int,g,r*,gin
-r.cr*/rit,-n( &$ %G $ 02)*/rit,-n(222222222222222222222222222222222222222222222)*or i:=0to 3o
,gin
7n39
7n3*',a3-n*
I4 (imo3 10= 0) th,n/rit,-n*
/rit,(i:T)
B i 2 4:&_o hnh
a)B
b) c)B BBBB B
BBBBBBB B B
B BBBBProgram&$!"I%"!*#.,. rt*Var isn:int,g,r*,gin
BB B BBBBBB
B
BB BB BB BB
BB B BB BB
BBBBBBBBB
-r.cr*/rit,-n( &$ "I%" :)*/rit,-n(222222222222222222222222)*/rit,(%hap .o3ongn=)*r,a3-n(n)*or i:= 1to n 3o
,gin
7n3*
or s:=1toi3o/rit,(B)*
/rit,-n*
7n39',a3-n*
Program&$!"I%"!*#.,. rt*Var isnm:int,g,r*
&rang 10
-
7/23/2019 61 Bai Tap Pascal
11/40
,gin -r.cr* /rit,-n( &$ "I%" )*
/rit,-n(2222222222222222222222222222)*/rit,(%hap .o 3ong n=)*r,a3-n(n)*or i:=n 3o8nto 1 3o
,gin
',a3-n*7n39
7n3*
or s:=1toi3o
/rit,(B)*/rit,-n*
Program&$!"I%"!*#.,. rt*Var isnm:int,g,r*,gin -r.cr*
/rit,-n( &$ "I%" )*/rit,-n(2222222222222222222222222222)*/rit,(%hap .o 3ong n=)*r,a3-n(n)*
or i:=1to n 3o,gin
',a3-n*
7n39
7n3*
Gotox(n2i+i+)*or s:=1to
-
7/23/2019 61 Bai Tap Pascal
12/40
7n39B i 2 7:&Nnhn (3{ng chngtrnh con)ProgramGII!&"#*#.,. rt*Var n:int,g,r*5nction gt(n:int,g,r):-ongint*
VarCDi:int,g,r*,gin
,gin7n3*
-r.cr*
CD:=1*or i:=1ton3oCD:=CDBi*
gt:=CD*
7n39
/rit,-n("#$%G &'I%" &I%" % :)*/rit,-n(222222222222222222222222222222222222222)*/rit,(%hap n= )* r,a3-n(n)*/rit,-n(n=gt(n))*
',a3-n*
B i 2 8:&Nnh Cn (3{ngchng trnhcon) Program&$!"$P*#.,. rt*VarnC:int,g,r*5nction gt(n:int,g,r):-ongint*
VarCDi:int,g,r*,gin
7n3*
CD:=1*or i:=1ton3o
CD:=CDBi*
gt:=CD*
5nction(nC:int,g,r):r,a-*,gin
,gin7n3*
-r.cr*
c:=gt(n)(gt(C)Bgt(n2C))*
7n39
/rit,-n("#$%G &'I%" &I%" % "P :)*/rit,-n(2222222222222222222222222222222222222222222222)*/rit,(%hap n= )* r,a3-n(n)*
/rit,(%hapC=)*r,a3-n(C)*/rit,-n((nC) =c(nC):A:0)*',a3-n*
B i 2 9:Qp tam giFcPQ b`ng nC(3{ngchng trnhcon)n
Program&O!GI!PQ*#.,. rt*VarisnC:int,g,r*
&rang 1
-
7/23/2019 61 Bai Tap Pascal
13/40
5nction gt(n:int,g,r):-ongint*VarCDi:int,g,r*,gin
7n3*
CD:=1*or i:=1ton3o
CD:=CDBi*gt:=CD*
5nction(Cn:int,g,r):r,a-*,gin
,gin7n3*
-r.cr*
:=gt(n)(gt(C)Bgt(n2C))*
/rit,-n(VI7&&O GIPQ:)*/rit,-n(222222222222222222222222222222222)*/rit,( %hapn = )* r,a3-n(n)*or i:=0ton3o
,gin
7n39
7n3*',a3-n*
or s:=0toi3o/rit,((si):T:0)*/rit,-n*
B i 3 0:Vit cFcchng trnh con tNnh 3iUn tNch tam giFc trfn 65Xng chq nht trongmet chng trnh9 a5 JY hSi ch|n met trong cFc phng Fn tNnh 3iUn tNchb`ng cFchch|ntrongbngch|n -Unh.a5:
09 hXng -Mm ght 6M tr} 6vmMnhnh .o_n tho919 &Nnh3iUntNch hnh65Xng
-
7/23/2019 61 Bai Tap Pascal
14/40
Var ab c.p:r,a-*,gin
/rit,-n(&I%"RI7%&I"&OGI:)*/rit,(nhap a=)*r,a3-n(a)*/rit,(nhap b=)*r,a3-n(b)*/rit,(nhap c=)*r,a3-n(c)*I4((a+b)?c)an3((b+c)?a)an3((a+c)?b)th,n,gin
7n3*
7n37-.,
p:=(a+b+c)
-
7/23/2019 61 Bai Tap Pascal
15/40
B i 3 1:&Nnh cFc .ibonacci:2 1=
-
7/23/2019 61 Bai Tap Pascal
16/40
-
7/23/2019 61 Bai Tap Pascal
17/40
&rang 1A
-
7/23/2019 61 Bai Tap Pascal
18/40
== +
+n
i
i
i
x
0 )m1(
1(3{ng chng trnh con)
7n39',a3-n*
B i 3 5:&Nnh t]ng Program &$%GT*#.,. rt*Varixn:int,g,r*
.:r,a-*
5nction -t(an:int,g,r):-ongint*
Vari:int,g,r*CD:-ongint*,gin
CD:=1*or i:=1ton3o
CD:=CDBa*
7n3*-t:=CD*
5nction gt(n:int,g,r):-ongint*VarCDi:-ongint*,gin
7n3*
CD:=1*or i:=1ton3o
CD:=CDBi*gt:=CD*
,gin
7n39
-r.cr*/rit,-n( "#$%G &'I%" &I%" &$%G:)*/rit,-n(2222222222222222222222222222222)*/rit,(%hapx = )*r,a3-n(x)*
/rit,(%hap n=)* ',a3-n(n)*:=0*ori:=0to n 3o
:=+(1+-t(xi))gt(1+i)*/rit,-n(&ong-a:.:A:
-
7/23/2019 61 Bai Tap Pascal
19/40
Var a:O&*n:int,g,r*
Proc,35r,Inp5t(Vara:O&*n:int,g,r)*Var i s:int,g,r*,gin
or i:=1ton3oor s:=1ton3o
,gin
7n3*7n3* /rit,(ais=)*',a3-n(ais)*
Proc,35r,$5tp5t(a:O&*n:int,g,r)*Varis:int,g,r*,gin
or i:=1ton3o,gin
7n3* 7n3*
or s:=1ton3o/rit,(ais:T)*
/rit,-n*
&ongcac phant5tr,n35ongch,ochinh5nction5m1(a:O&*n:int,g,r):int,g,r*
VariCD:int,g,r*,gin
7n3*
CD:=0*or i:=1ton3o
CD:=CD +aii*.5m1:=CD*
&ongbinhph5ongcac .o tr,n hang chan5nction5m
-
7/23/2019 61 Bai Tap Pascal
20/40
-
7/23/2019 61 Bai Tap Pascal
21/40
VarisCD:int,g,r*,gin
CD:=0*or i:=1ton3o
or s:=1to m 3oI4(ais@ 0)th,n
CD:=CD+'(ais)*
7n3*,gin
7n39
5m:=CD*
-r.cr*/rit,-n(&I%" &$%GI%" P"% O)*/rit,-n(222222222222222222222222222222)*/rit,(%hap6ao.o3ongn = )*r,a3-n(n)*/rit,(%hap6ao.ocotm = )*r,a3-n(m)*Inp5t(anm)*$5tp5t(anm)*/rit,-n(&ongbinh ph5ongcacphant5am=.5m(anm))*',a3-n*
Bi 39: Vit chng trnh nhp 6Mo met ma trn9 In ma trn ch5\n 6 cda nY ramMn hnh9Oa trn-M matrn ch5\n6 cdamatrnn5cFcphwnt cdachngcYD5anhU i s= s i9ProgramO&!&'%!"#7%!VI*#.,. rt*&p,O& =arra199
-
7/23/2019 61 Bai Tap Pascal
22/40
7n3*,gin
-r.cr*
bsi:=ais*
7n39
/rit,-n(&IO O&'%"#7%VI)*/rit,-n(2222222222222222222222)*/rit,(%hap6ao.o3ong n= )*r,a3-n(n)*/rit,(%hap6ao.ocotm = )*r,a3-n(m)*
Inp5t(anm)*/rit,-n(Oa tran a-a:)*$5tp5t(anm)*h5,n6i(anmb)*/rit,-n(Oa tranch5,n6ib-a:)*$5tp5t(bmn)*',a3-n*
B i 4 0:Vit chng trnhnhp6Mo met ma trn 65Xngcp n9 h5\n thMnhchNnhmM trn ch5\n 6 cda (ChXng .3ngmatrntr5ng gian)9ProgramO&!&'%!"#7%!VI*
#.,. rt*&p,O&=arra199
-
7/23/2019 61 Bai Tap Pascal
23/40
-
7/23/2019 61 Bai Tap Pascal
24/40
&p,ma=arra1990o4int,g,r*Var a:ma*n:int,g,r*Proc,35r,Inp5t(6ara:ma*n:int,g,r)*Var i: int,g,r*,gin
or i:=1ton3o,gin
7n3*7n3*
/rit,(nhap phant5th5i=)*
',a3-n(ai)*
Proc,35r,$5tp5t(a:ma*n:int,g,r)*Vari:int,g,r*,gin
7n3*
or i:=1ton3o/rit,(ai:T)*
Proc,35r,$33!76,n(6ara:ma*n:int,g,r)*Var -rt:int,g,r*
,gin -:=1*r:=n*',p,at
/hi-, (-@r)an3 (a-mo3
-
7/23/2019 61 Bai Tap Pascal
25/40
-
7/23/2019 61 Bai Tap Pascal
26/40
7n39
/rit,-n(R$I $ &"P P"% %G & P"%:)*/rit,-n(2222222222222222222222222222222)*/rit,(%hap .ocan3oin = )*',a3-n(n)*i:=1*',p,at
3i:=n mo3 *n:=n 3i6 *i:=i+1*
#nti-n=0*/rit,(obatphan-a:)*ors:=i21 3o8nto 13o
/rit,(3s)*',a3-n*
B i 4 5: Vit chng trnh nhp 6Mo met ch5zi CN t.a5JY nhp 6Mo met CN t bt C6MJm . -wn cda nY trong ch5zi J[ nhp9ProgramR7O!$!!*#.,. rt*Var .t:.tringT0*
x:char*i3,m:int,g,r*,gin
7n39
-r.cr*/rit,-n(RI7O$ Q% #&"I7% # 1 )*/rit,-n(222222222222222222222222222222222222222222222222222222)*/rit,(%hapch5oiCt5-a:)*r,a3-n(.t)*/rit,(%hapCt5x=)*r,a3-n(x)*3,m:=0*or i:=1to-,ngth(.t) 3o
I4 x= .tith,n 3,m:=3,m+1*/rit,-n(.o -an x5athi,n c5ax trong ch5oi .t-a: 3,m)*
',a3-n*
B i 4 6:Vit chng trnhnhp6Momet ch5ziC t i\m tra x,m nY cYJIi xyng haChXng (VN 3: h5ziJIixyng 'R'ORO)9Program "#$I!R$I!#%G*#.,. rt*Var .t:.tring*
i:int,g,r*oC:boo-,an*
,gin-r.cr*/rit,-n(I7O &'"#$IR$I #%G)*/rit,-n(2222222222222222222222222222222222222222)*/rit,(%hapch5oiCt5:)*',a3-n(.t)*oC:=tr5,*or i:=1to-,ngth(t)3i6 < 3o
I4.ti@?.t-,ngth(.t)2i+1th,noC:=4a-.,*
I4oCth,n/rit,-n(.t-ach5oi3oix5ng)
7-.,
/rit,-n(.t Chong-a ch5oi3oix5ng)*&rang
-
7/23/2019 61 Bai Tap Pascal
27/40
-
7/23/2019 61 Bai Tap Pascal
28/40
papt:r,a-*,n3*
Var abc:.oph5c*,gin
-r.cr*/rit,-n(&$%G "I $ P"#)*/rit,-n(2222222222222222222222222222)*/rit,(%happhanth5cc5a.oa=)*r,a3-n(a9pt)*
/rit,(%happhanaoc5a.oa=)*r,a3-n(a9pa)*/rit,(%happhanth5c c5a.o b=)*r,a3-n(b9pt)*/rit,(%happhanaoc5a.ob=)*r,a3-n(b9pa)*c9pt:=a9pt +b9pt*c9pa:=a9pa +b9pa*/rit,-n(&ong c5a hai .oph5c a6ab-a:)*I4c9pa@0 th,n
/rit,-n(c=c9pt:A:
-
7/23/2019 61 Bai Tap Pascal
29/40
-
7/23/2019 61 Bai Tap Pascal
30/40
-
7/23/2019 61 Bai Tap Pascal
31/40
-
7/23/2019 61 Bai Tap Pascal
32/40
7n3*/rit,-n( Oa tran 65anhap -a:)*or i:=1ton3o
,gin
7n3*
.5m1:=0*
or s:= 1to n 3o/rit,(ais:;)*
/rit,-n*
7n39
or i:=1ton3o.5m1:=.5m1+aii*
/rit,-n(&ongcacphant5 tr,n35ongch,ochinh-a: .5m1)*.5m
-
7/23/2019 61 Bai Tap Pascal
33/40
-
7/23/2019 61 Bai Tap Pascal
34/40
or i:=1ton3oor s:=1ton3o
,gin
,gin
7n3*
-r.cr*
7n3*
3is:=0*or C:=1 ton3o 3is:=3is
+aiCBbCs*
7n39
/rit,-n(&$%G &I""IO&'% V#$%G:)*/rit,-n(22222222222222222222222222222222222222222222222222)*/rit,(%hapcap c5ahaimatrann=)*r,a3-n(n)*/rit,-n(%"PO&'%:)*/rit,-n(2222222222222222)*Inp5t(an)*/rit,-n(%"P O&'%:)*/rit,-n(2222222222222222)*Inp5t(bn)*
/rit,-n(O&'% -:)*/rit,-n(2222222222222222)*$5tp5t(an)*',a3-n*/rit,-n(O &'%-:)*/rit,-n(2222222222222222)*$5tp5t(bn)*',a3-n*/rit,-n(O &'% &$%G # -:)*/rit,-n(2222222222222222)*5m(abcn)*
$5tp5t(cn)*',a3-n*/rit,-n(O &'%&I" # -:)*/rit,-n(2222222222222222)*Pro35ct(ab3n)*$5tp5t(3n)*',a3-n*
B i 5 6:m.tLtrong met ch5zi9ProgramR7O!$!*#.,. rt*
Var .t:.tring*i3,m:int,g,r*
,gin-r.cr*/rit,-n(R7O $ &'$%G "#$I:)*/rit,-n(2222222222222222222222222222222222222)*/rit,(%hap ch5oi:)*r,a3-n(.t)*I4.t1= th,n
3,m:=07-.,
3,m:=1* &rang TT
-
7/23/2019 61 Bai Tap Pascal
35/40
-
7/23/2019 61 Bai Tap Pascal
36/40
-
7/23/2019 61 Bai Tap Pascal
37/40
ProgramR%"!"!V*#.,. rt*&p,.inh6i,n=r,cor3 ho:.tring10* t,n:.tring10* t5oi:bt,*
DD:.tringT0* ,n3*
3anh.ach=arra 1990o4.inh6i,n*Var 3.: 3anh.ach*n:int,g,r*Proc,35r,Inp5t(6ara:3anh.ach*n:int,g,r)*Vari:int,g,r*,gin
or i:= 1to n 3o/ithai3o,gin
7n3*7n3*
/rit,("o.inh6i,ni :)*r,a3-n(ho)*/rit,(&,n.inh6i,ni :)*r,a3-n(t,n)*/rit,(&5oi.inh6i,ni :)*r,a3-n(t5oi)*
/rit,(5, D5an.6i : )* r,a3-n(DD)*/rit,-n*
Proc,35r,$5tp5t(a:3anh.ach*n:int,g,r)*Var i:int,g,r*,gin
/rit,-n(ho &,n &5oi 5, D5an)*/rit,-n(2222222222222222222222222222222222222)*or i:= 1to n 3o
/ithai3o
,gin
7n3*7n3*
/rit,(ho)*/rit,(t,n:10)*/rit,(t5oi:A)*/rit,(DD:10)*/rit,-n*
Proc,35r,ort(6ara:3anh.ach*n:int,g,r)*Varis:int,g,r*t:.inh6i,n*,gin
or i:=1ton21 3oors:=i+1to n3o
I4ai9t5oi?as9t5oith,n,gin
7n3*,gin
-r.cr*
7n3*
t:=ai*ai:=as*as:=t*
&rang TA
-
7/23/2019 61 Bai Tap Pascal
38/40
-
7/23/2019 61 Bai Tap Pascal
39/40
-
7/23/2019 61 Bai Tap Pascal
40/40
7n3*/hi-,not ,o4(4