ࡱ> jliq`f0bjbjqPqP.8::       ,r;r=r=r=r=r=r=r$shu|ar- ar  rR  ;r;rj  r ЇY$G mJ;rr0rmnvQlnvrnv r4arar rD bd b       8;5BK "Object Pascal"  2006 8;5B 1 !B@C:BC@0 0A:0;L-?@>3@0<<K. ;>:8 8 ;>:0;870F8O >1J5:B>2. >38G5A:85 2K@065=8O. 8;5B 2 0==K5 F5;>3> B8?0. @54AB02;5=85 2 -. ?5@0F88 =04 F5;>G8A;5==K<8 40==K<8. =8F80;870F8O D09;>2 8;5B 3 AB@>5==K5 ?@>F54C@K 8 DC=:F88 A F5;>G8A;5==K<8 0@3C<5=B0<8. &8:; while. 8;5B 4 0==K5 25I5AB25==>3> B8?0. @54AB02;5=85 2 -. ?5@0F88 =04 25I5AB25==K<8 40==K<8. ?5@0B>@ 2K1>@0 (?5@5:;NG0B5;L). 8;5B 5 AB@>5==K5 ?@>F54C@K 8 DC=:F88 A 25I5AB25==K<8 0@3C<5=B0<8. 5@540G0 ?@>F54C@0< (DC=:F8O<) 8<5=8 4@C3>9 ?@>F54C@K (DC=:F88) 2 :0G5AB25 ?0@0<5B@0. 8;5B 6 0==K5 ?5@5G8A;8<>3> 8 8=B5@20;L=>3> B8?>2. ?5@0F88 =04 >1J5:B0<8 MB8E B8?>2. A=>2=K5 ?@85<K @540:B8@>20=8O ?@>3@0<<K 2 8=B53@8@>20==>9 A@545. 8;5B 7 0==K5 ;>38G5A:>3> B8?0. @54AB02;5=85 2 -. ?5@0F88 =04 ;>38G5A:8<8 25;8G8=0<8. AB@>5==K5 DC=:F88 A ;>38G5A:8<8 0@3C<5=B0<8. !>AB02=>9 >?5@0B>@. 8;5B 8 0==K5 A8<2>;L=>3> B8?0. "01;8F0 ASCII. ?5@0F88 8 AB0=40@B=K5 ?@>F54C@K =04 A8<2>;L=K<8 >1J5:B0<8. A>15==>AB8 8A?>;L7>20=8O =5B8?878@>20==KE ?0@0<5B@>2 2 DC=:F8OE 8 ?@>F54C@0E. 8;5B 9 0==K5 AB@>:>2>3> B8?0. @54AB02;5=85 2 -. ?5@0F88 8 AB0=40@B=K5 ?@>F54C@K =04 AB@>:>2K<8 >1J5:B0<8. ?5@0B>@ with. 8;5B 10 =>65AB20 8 >?5@0F88 =04 =8<8. =B53@8@>20==0O A@540 Turbo-Pascal (Delphi). E>4 2 3;02=>5 <5=N. A=>2=K5 :><0=4K <5=N File. 8;5B 11 0AA82K 8 >?5@0F88 =04 =8<8. '5< >B;8G0NBAO <0AA82K 2 O7K:5 0A:0;L >B <0AA82>2 2 4@C38E 8725AB=KE 20< O7K:0E? ?8A0=85 8 C?>B@51;5=85 :>=AB0=B. 8;5B 12 #:070B5;8 8 >?5@0F88 =04 =8<8. A=>2=K5 M;5<5=BK >B;04:8. >H03>2>5 2K?>;=5=85 ?@>3@0<<K. ">G:8 >AB0=>20. :=> ?@>A<>B@0. !?5F8D8:0 ?@>A<>B@0 7=0G5=8O ?5@5<5==KE 2 Delphi. 8;5B 13 1JO2;5=85 8 8A?>;L7>20=85 >1J5:B>2 B8?0 "70?8AL". 0?8A8 A 20@80=B0<8. #A;>2=K9 >?5@0B>@. 8;5B 14 "5:AB>2K5 D09;K 8 @01>B0 A =8<8. ?8A0=85 8 C?>B@51;5=85 <5B>:. 8;5B 15 "8?878@>20==K5 D09;K 8 @01>B0 A =8<8. ?5@0B>@ ?@8A20820=8O. 8;5B 16 5B8?878@>20==K5 (42>8G=K5) D09;K 8 @01>B0 A =8<8. 0`p* T P ^ h & ( f |   N P  "PRdnrhj|".024 RT* hwhwhwmH sH hw h0h0h0mH sH h0hqAxh^ mH sH h^ P<L T n p ( j l |  & Fgd^  & Fgd^  & Fgd^  & Fgd^  & Fgd^ gd^ gd^ f0 P "j & F gd^  & F gd^  & F gd^  & Fgd^  & Fgd^ gd^  & Fgd^  :<NZ&(:$$% & Fx^gd^ xgd^  & Fgd^  & Fgd^  & Fgd^  & F gd^  & F gd^ gd^ *8hVZ":$$$ %"%%%%%%%'"'d'x'''(())>)H)J)N)\)`)))**0+B++++ , ,,--4-N-b-----T.h..... hChChCmH sH hC h}rh}rh}rmH sH h}r hwhwU hwh^ hwh^ hwmH sH I>78F8>==K5 A8AB5<K AG8A;5=8O. 2>8G=0O, 2>AL<5@8G=0O 8 H5AB=04F0B5@8G=0O A8AB5<K. !2O7L <564C =8<8. 8;5B 17 1JO2;5=85 8 8A?>;L7>20=85 ?@>F54C@. >:0;L=K5 8 3;>10;L=K5 ?5@5<5==K5. !?>A>1K ?5@540G8 ?0@0<5B@>2. 5:C@A8O 2 ?@>F54C@0E. &8:; for. 8;5B 18 1JO2;5=85 8 8A?>;L7>20=85 =5AB0=40@B=KE (?>;L7>20B5;LA:8E) DC=:F89. >:0;L=K5 8 3;>10;L=K5 ?5@5<5==K5. 5:C@A82=K5 DC=:F88. ?5@560NI85 >?8A0=8O. 45=B8D8:0B>@K >1J5:B>2 2 0A:0;5. 8;5B 19 >4C;8 2 0A:0;5. !B@C:BC@0 <>4C;O. @8D<5B8G5A:85 2K@065=8O. @8>@8B5B >?5@0F89. 0: >?@545;O5BAO B8? 7=0G5=8O 0@8D<5B8G5A:>9 D>@<C;K? 8;5B 20 1JO2;5=85 B8?>2 8 8A?>;L7>20=85 8<5= B8?>2 4;O >?8A0=8O 40==KE. @>F54C@K 2K2>40 write 8 writeln. #?@02;5=85 D>@<0B>< 2K2>40 G8A;>2KE 8 B5:AB>2KE 25;8G8=. 8;5B 21 @54AB02;5=85 42>8G=KE G8A5; A ?;020NI59 D8:A8@>20==>9 70?OB>9. >@<0;87>20==>5 G8A;>. A>15==>AB8 8A?>;L7>20=8O <0AA82>2 2 :0G5AB25 ?0@0<5B@>2 ?@>F54C@ 8 DC=:F89. 8;5B 22 B:@KBK5 8 48=0<8G5A:85 <0AA82K. 0?@>A 8 >A2>1>645=85 ?0<OB8 2> 2@5<O @01>BK ?@>3@0<<K. &8:; repeat. 8;5B 23 0745; :>=AB0=B. "8?878@>20==K5 ":>=AB0=BK" 2 0A:0;5. @8A2>5=85 ?5@5<5==K< =0G0;L=KE 7=0G5=89. !?5F8D8:0 Object Pascal. @>F54C@K 22>40 read, readln. 8;5B 24 #?@02;5=85 2K2>4>< @CAA:>O7KG=KE B5:AB>2 2 :>=A>;L=>< ?@8;>65=88 Delphi. ?5@0B>@ 157CA;>2=>3> ?5@5E>40. CAB>9 >?5@0B>@. 8;5B 25 #?@02;5=85 D>@<0B>< 2K2>48<KE 40==KE A ?><>ILN ?@>F54C@K Format. ?5@0B>@K F8:;0. 07=0G5=85 >?5@0B>@>2 break 8 continue. 8;5B 26 #?@02;5=85 D09;0<8 2 AB8;5 Windows.  G5< @07=8F0 <564C 2K1>@:>9 40==KE 87 B5:AB>2>3> D09;0 ?> >?5@0B>@0< read 8 readln. %%% 'f'x''(()))*.+0+B++, , & Fxgd^ xgd}r & Fxgd^  & Fxgd^  & Fgd^  & Fxgd^  & Fgd^  & Fxgd^ xgd^  & F^gd^  ,-P-b--V.h..\/n//`0b0d0f0 & F xgd{-lxxgdC & Fxgd^  & Fxgd^ xgd^  & Fxgd^ ./ /8/B/D/H/X/Z/\////B0J0L0P0\0^0b0d0f0 hChChCmH sH h^ hC,1h. A!"R#n$n% B@B 1KG=K9CJ_HaJmHsHtHZ@Z ^  03>;>2>: 3$<@&5CJOJQJ\^JaJBAB A=>2=>9 H@8DB 0170F0XiX 1KG=0O B01;8F04 l4a .k@. 5B A?8A:08&axy*78@PQYtDEMLMV -LMV|5>a   _  h i r [ y  F  (00 0 000 0 000 0 000 0 000 0 000 0 000 0 000 0 000 0 000 0 000 0 000 0 000 0 000 0 000 0 000 0 00 0 00 0 00 0 00 0 00 0 000 0 00 0 00 0 00 0 00 0 0000&axy*78@PQYtDEMLMV -LMV|5>a   _ i r [ y  F  @0@ 0@ 0@0@0@ 0@0@0@ 0@ 0@0@0@ 0@ 0K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00K00 00*.f0  % ,f0 f08@0(  B S  ?0Ax  q w &Ca8@pQYtEM/KMVk -V|#5K   i r B y   ">h>I$|O&Zy.D&N d8< 0>|K &`N:5wo-*<9fN5:’>)8 ԣJ;L3)Uk$1`Ubd74,ezd7$7o 8`KncoY7fNbo[rڜṳIxv~yZoW9>|j@K}|v`S^S`o(.^`.pLp^p`L.@ @ ^@ `.^`.L^`L.^`.^`.PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L. s^`so(hH ^`hH. pLp^p`LhH. @ @ ^@ `hH. ^`hH. L^`LhH. ^`hH. ^`hH. PLP^P`LhH.7S^S`o(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L. sS^`so(hH ^`hH. pLp^p`LhH. @ @ ^@ `hH. ^`hH. L^`LhH. ^`hH. ^`hH. PLP^P`LhH.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.s^`so(.^`.pLp^p`L.@ @ ^@ `.^`.L^`L.^`.^`.PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7S^S`o(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L. ?^?`o(hH ^`hH. L^`LhH.   ^ `hH. OO^O`hH. L^`LhH. ^`hH. ^`hH. L^`LhH. s^`so(hH ll^l`hH. < L< ^< `LhH.   ^ `hH. ^`hH. L^`LhH. ||^|`hH. LL^L`hH. L^`LhH. ^`o(hH ^`hH. L^`LhH.   ^ `hH. OO^O`hH. L^`LhH. ^`hH. ^`hH. L^`LhH.7S^S`o(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7S^S`o(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7S^S`o(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7S^S`o(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L. s^`so(hH ^`hH. pLp^p`LhH. @ @ ^@ `hH. ^`hH. L^`LhH. ^`hH. ^`hH. PLP^P`LhH. ^`o(hH ll^l`hH. < L< ^< `LhH.   ^ `hH. ^`hH. L^`LhH. ||^|`hH. LL^L`hH. L^`LhH.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7S^S`o(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7S^S`o(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L. ??^?`o(hH ^`hH. L^`LhH.   ^ `hH. OO^O`hH. L^`LhH. ^`hH. ^`hH. L^`LhH.7S^S`o(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7s^`so(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L.7S^S`o(.7^`.7pLp^p`L.7@ @ ^@ `.7^`.7L^`L.7^`.7^`.7PLP^P`L."bo[r*;B^|K N5 8W9>|Kn<o-u>)8 ~.By.|O>h>^EAC@K}< v~yY7f;L3)JD<>cd74Ixk$1d7DPI$7:5werEN ""Q<7tȦ}tȦ}Q<7tȦ}$tȦ}tȦ}tȦ}tȦ}tȦ}Q<7:r+tȦ}tȦ}Q<7tȦ}Q<7Q<7tȦ}Q<7Q<7tȦ}tȦ}Q<7tȦ}Q<7C^ {-lqAx}r0w@ =GG (```$UnknownGz Times New Roman5Symbol3& z Arial"qhmFmF4  nr4d 2QHX)?^ 28;5BK "Object Pascal"  2006KETKOBKETKOB"                           ! Oh+'0 $ D P \hpx "Object Pascal" 2006KETKOB Normal.dotKETKOB2Microsoft Office Word@8C@@TJ# ՜.+,0  hp  Home   "Object Pascal" 2006    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXZ[\]^_`bcdefghkRoot Entry FЇY$m1TablewWordDocument.8SummaryInformation(YDocumentSummaryInformation8aCompObjq  F Microsoft Office Word MSWordDocWord.Document.89q