ࡱ> tvsq`NbjbjqPqP.l::,4*4*4*4*l*\,jR+++++o8o8o8QQQQQQQ$ ShUtQQ85o888Q++ $R===80t++Q=8Q==N$5P+* `8Hħ4* :OaQL:R0jR%OU;U(5PU5P,o88=8 8So8o8o8QQ=o8o8o8jR8888,,,!(,,,(,,, /7K: ?@>3@0<<8@>20=8O PASCAL ;>: 5. "5<0: 53C;O@=K5 B8?K 40==KE. 4=><5@=K5 <0AA82K. 01>B0 A M;5<5=B0<8. ;0=. I. 4=><5@=K5 <0AA82K. ?5@0B>@K <0AA820, 284K <0AA82>2. 0) 7040=85 >4=><5@=>3> <0AA820. 2. 5H5=85 7040G. 3.040=85 =0 A0<>AB>OB5;L=CN @01>BC.  <0B5<0B8:5, M:>=><8:5, 8=D>@<0B8:5 G0AB> 8A?>;L7CNBAO C?>@O4>G5==K5 =01>@K 40==KE , =0?@8<5@, ?>A;54>20B5;L=>ABL G8A5;, B01;8FK, A?8A:8 D0<8;89 8 B.4. ;O >1@01>B:8 =01>@>2 40==KE >4=>3> B8?0 22>4OB ?>=OB85 <0AA820. >4 <0AA82>< ?>=8<05BAO A>2>:C?=>ABL :>=5G=>3> G8A;0 40==KE >4=>3> B8?0. 0AA82 >1>7=0G05BAO >4=8< 8<5=5<. "0: A>2>:C?=>ABL 459AB28B5;L=KE G8A5; 1.6, 5.7, 8.5, 0.45 <>6=> AG8B0BL <0AA82>< 8 >1>7=0G8BL >4=8< 8<5=5<, =0?@8<5@, . 064K9 M;5<5=B <0AA820 >1>7=0G05BAO 8<5=5< <0AA820 A 8=45:A><. -;5<5=BK <0AA820 C?>@O4>G5=K ?> 7=0G5=8O< 8=45:A0. =45:A 70:;NG05BAO 2 :@C3;K5 8;8 :204@0B=K5 A:>1:8.  Turbo Pascal 7.0 8=45:A 70:;NG05BAO 2 :204@0B=K5 A:>1:8. A[1]=1.6, A[2]=5.7, A[3]=8.5, A[4]=0.45 "0:8< >1@07><  8=45:A >?@545;O5B ?>;>65=85 M;5<5=B0 <0AA820 40==KE B=>A8B5;L=> 53> =0G0;0.  ?@>3@0<<5 <0AA82 4>;65= 1KBL >?8A0=. $>@<0 >?8A0=8O 8<55B 284 var 8<O <0AA820: ARRAY [n1..n2] OF <B8? M;5<5=B>2>; 0?@8<5@, var a: array[1..100] of integer; 45AL <0AA82 =0G8=05BAO A 1 ?> 100 M;5<5=B, M;5<5=BK <>3CB ;560BL 2 ?@545;0E >B -32768 4> 32767. >6=> >4=8< >?8A0=85< >1J548=8BL =5A:>;L:> <0AA82>2. -B> 1C45B 2K3;O45BL B0:. Var A,B,C: ARRAY[1..50] OF REAL/ 45AL >1JO2;5=> A?8A:>< 3 <0AA820 A,B,C 459AB28B5;L=KE G8A5;, :064K9 87 :>B>@KE A>45@68B 50 M;5<5=B>2. -;5<5=BK <0AA820 <>3CB AB>OBL :0: 2 ;52>9 G0AB8 >?5@0B>@0 ?@8A20820=8O, B0: 8 2 2K@065=8OE. 04 M;5<5=B0<8 <0AA820 <>6=> ?@>872>48BL B5 65 >?5@0F88, :>B>@K5 4>?CAB8<K 4;O 40==KE 53> 107>2>3> B8?0. A;8 107>2K9 B8? 5ABL INTEGER, B> 4>?CAB8<K 2A5 >?5@0F88 =04 40==K<8 F5;>3> B8?0, 2:;NG0O 8 AB0=40@B=K5 DC=:F88.  O7K:5 Turbo Pascal ?><8<> >?8A0=8O <0AA82>2 2 @0745;5 ?5@5<5==KE 8<55BAO 4@C30O D>@<0 >?8A0=8O, A>AB>OI0O 87 42CE MB0?>2. !=0G0;0 2 @0745;5 >?8A0=8O B8?>2 TYPE C:07K205BAO B8? <0AA820. 0B5< 2 @0745;5 >?8A0=8O ?5@5<5==KE VAR ?5@5G8A;ONBAO <0AA82K, >B=>AOI85AO : C:070==><C B8?C. -B> 2K3;O48B B0:. Type massiv=aaray[n1..n2] OF<B8? M;5<5=B>2> . 07<5@=>ABL <0AA820 70405BAO ?@8 53> >?8A0=88 8 2 ?@>F5AA5 @01>BK ?@>3@0<<K. @8A2>5=85 7=0G5=89 M;5<5=B0< <0AA820 <>65B ?@>8AE>48BL A ?><>ILN: >?5@0B>@0 Read (readln); Uses crt; var i,n: integer; a: array[1..1000] of integer; Begin Clrscr; ?@545;O5< G8A;> M;5<5=B>2 2 <0AA825. Write (254. 07<5@ <0AA820 ); Readln (n); 2>4 M;5<5=B>2 <0AA820. For i:1 to n do begin Write ( a [ ,i, ] ); readln (a[i]); End; K2>48< =0 M:@0= ?>;CG5==K9 <0AA82. For i:=1 to n do Write (a[i],  ); read key; End. ?8A0=85 M;5<5=B>2 <0AA820 2 @0745;5 >?8A0=8O :>=AB0=B. Uses crt; Const n=5; A: array [1..5] of integer=(4,5,7,7,0); Var i: integer; begin >;CG5==K9 <0AA82 For i:=1 to n do Write (a[i],  ); Read key; End. 5H5=85 7040G. @8<5@ 1 . !D>@<8@>20BL >4=><5@=K9 <0AA82 87 N M;5<5=B>2, 345 M;5<5=BK <0AA820  F5;K5 A;CG09=K5 G8A;0 2 ?@545;0E > 1 4> 45. 0?5G0B0BL M;5<5=BK 2 ?@O<>< 8 >1@0B=>< ?>@O4:5. 5H5=85. ;O ?>;CG5=8O A;CG09=KE G8A5; 2>A?>;L7C5<AO DC=:F859 RND[(x)]. 0==0O DC=:F8O 2>72@0I05B A;CG09=>5 G8A;> >1KG=>9 B>G=>AB8 2 8=B5@20;5 >B 0 4> 1. A;8 0@3C<5=B >?CI5=, 2,8:DFJZ ^ ` b d f     8 : @ > @ H X d ιג~rcr~XhrBhrBCJaJhrBhrB56>*CJaJhrBhrB5CJaJhrBCJaJhrhDCJaJhhCJaJhpDhrCJaJhrCJaJmH sH hrCJaJhrhr5CJaJhh5CJaJhr5CJaJhhr5CJaJh=hr5CJaJmH sH h=hr5CJaJ":J\ ^ `  : @ V$V^gdh^gdh^gdD & FgdDh^hgdrgdr$a$gdrXMN Zdfr| <HJV\vxż𴧛teh35 h35 CJaJmH sH hlh35 CJaJhlhl6CJaJmH sH hlh|@6CJaJhlhl6CJaJhl6CJaJmH sH hlCJaJh|@>*CJaJh|@h|@>*CJaJh|@h|@CJaJh|@CJaJmH sH h;ECJaJh|@CJaJhrBCJaJ$Vt"F<,ht(X@bvgdrtz|~:H  *24 ķԤvvvvh'h'CJaJh'CJaJmH sH h'CJaJh35 h35 CJaJmH sH h35 h35 CJaJh35 CJaJhl6CJaJmH sH h35 h35 6CJaJmH sH h35 6CJaJmH sH h35 hl6CJaJmH sH h35 hlCJaJmH sH - Fjt:迴|sdXI=XhJ5 CJaJmH sH hJ5 hJ5 CJaJmH sH hCJaJmH sH hJ5 hCJaJmH sH hm5CJaJhJ5 hJ5 5CJaJmH sH hJ5 hm5CJaJmH sH hJ5 hm5CJaJhJ5 hJ5 5CJaJhmhmCJaJhmh'6CJaJmH sH hmhm6CJaJhm6CJaJmH sH hmhm6CJaJmH sH hmCJaJ.<hrt "&(02DFTX^`|轵ݦччч藦|pgh5CJaJhh5CJaJhhJ5 CJaJhJ5 hJ5 5CJaJmH sH hJ5 hJ5 CJaJmH sH hJ5 hCJaJmH sH hCJaJhJ5 hCJaJhJ5 5CJaJhJ5 hJ5 5CJaJhJ5 hJ5 CJaJhCJaJmH sH hJ5 CJaJmH sH (Pjl <>;|o`WNh) 5CJaJh^R5CJaJh) h CJaJmH sH h) 5CJaJmH sH h) h) 5CJaJh) CJaJmH sH h) h) CJaJmH sH h) h\ KCJaJmH sH h\ KCJaJmH sH hJ5 h\ KCJaJmH sH h\ K5CJaJh\ Kh\ K5CJaJhCJaJhCJaJmH sH hm5CJaJvxl > 889z;<6<<< & Fgd~P^gd^R & Fgd^Rgd\ Kgdr> ! !$!&!*!"8888889999 9d9f9999T:V::::X;d;h;j;l;n;p;r;v;z;;<<X===øø۶ëۣϫϫϣϫϣϫϫϫϫϫϣhRCJaJmH sH hRCJaJh~PCJaJhgkCJaJhgkhgkCJaJUh^Rh^RCJaJh^RCJaJmH sH hgkCJaJmH sH h^RCJaJhI0h^R5CJaJmH sH hI0h^R5CJaJ0>72@0I05BAO A;54CNI55 G8A;> 87 ?>A;54>20B5;L=>AB8 A;CG09=KE G8A5;. ;O 70?CA:0 35=5@0B>@0 8A?>;L7C9B5 ?@>F54C@C Randomize . $C=:F8O Random[(x)] D>@<8@C5B A;CG09=>5 G8A;> >B 0 4> X F5;>3> 8;8 25I5AB25==>3> B8?0. X  ?0@0<5B@, C:07K20NI89 480?07>= A;CG09=>3> G8A;0. => 87<5=O5BAO 2 ?@545;0E >B 0 4> X. 57C;LB0B 2 MB>< A;CG05 8<55B B8? WORD (7=0G5=8O >B 0 4> 65535). ;O ?>;CG5=8O <0AA820 F5;KE A;CG09=KE G8A5; 8A?>;L7C5< 70?8AL random (B-A+I)+A 04048< 0;3>@8B< @5H5=8O 7040G8 2 2845 ?>H03>2>3> 8A?>;=5=8O A;54CNI8E :><0=4. <O ?@>3@0<<K. 040=85 <0AA820 8 >?8A0=8O 2A5E ?5@5<5==KE. >;CG5=85 A;CG09=KE G8A5; 2 7040==>< 480?07>=5. K2>4 M;5<5=B>2 <0AA820 2 ?@O<>< 8 >1@0B=>< ?>@O4:5. 0?8AK205< ?@>3@0<<C =0 O7K:5 Turbo-Pascal. Program prim1; Var i, n: integer; a: array[1..100] of integer; Begin Randomize; Write ('razmer='); readln (n); For i:=1 to n do begin A[i]:=random (46) +1; Writeln (a[i],''); End; For i:=n downto 1 do Write (a[i],''); Readln (a[i]); End. @8<5@ 2. >4AG8B0BL :>;8G5AB2> G5B=KE M;5<5=B>2 <0AA820, 7040==>3> 40BG8:>< A;CG09=KE G8A5;. !>AB028< 1;>:- AE5<C 0;3>@8B<0.                   @>3@0<<0, 70?8A0==0O =0 O7K:5 Pascal/ Program prim2; Var i, k,n: integer; a: array[1..100] of integer; Begin Randomize; Write ('chislo elem massiwa n=');readln(n); For i:=1 to n do begin a[i]:=random(45)-22; Writeln (a[i],''); if a[i] mod 2=0 then k:=k+1 end; Writeln ('kol. chetnyx elem=',k); readln; Rnd. @8<5@ 3. @>8725AB8 C40;5=85 M;5<5=B0 87 >4=><5@=>3> <0AA820, 7040==>3> 40BG8:>< A;CG09=KE G8A5;. 04048< 0;3>@8B< 2 2845 ?>H03>2>3> 8A?>;=5=8O. 0405< <0AA82 40BG8:>< A;CG09=KE G8A5;. >4@>1=>5 7040=85 0;3>@8B<0 A<>B@8 2 ?@8<5@5 2. 2>48< =><5@ C40;O5<>3> M;5<5=B0. !<5I05< M;5<5=BK <0AA820 : =0G0;C, =0G8=0O A -3>. 1=C;O5< ?>A;54=89 M;5<5=B. K2>48< =0 M:@0= 87<5=5==K9 <0AA82. @>3@0<<0 =0 O7K:5 Pascal. Program prim3; Uses CRT; Var a: array [1..100] of integer; I, k, n: integer; Begin Randomize; Clrscr; Write ( chislo elem. N= ); readln(n); For i:=1 to n do begin A[i]:=random (45)-22; Write (a[i],  ); End; Write ( nomer udalyemogo elem. K<=n ); readln (k); For i:=1 to n do begin; If i>=k then a[i]:=a [i+1]; End; A[n]:=0; For i: =1 to n-1 do begin Write (a[i],  ); End; Readln; End. 040=8O 4;O A0<>AB>OB5;L=>3> 2K?>;=5=8O. !>AB028BL 0;3>@8B< 8 ?@>3@0<<C, :>B>@0O ?>4AG8BK205B :>;8G5AB2> >B@8F0B5;L=KE 8 =5>B@8F0B5;L=KE M;5<5=B>2 >4=><5@=>3> <0AA820. 0AA82 7040BL 40BG8:>< A;CG09=KE G8A5;. @>8725AB8 2AB02:C M;5<5=B0 2 >4=><5@=K9 <0AA82. !>AB028BL 0;3>@8B< 8 ?@>3@0<<C, :>B>@0O >?@545;O5B AC<<C M;5<5=B>2 >4=><5@=>3> <0AA820. -;5<5=BK <0AA820 <>6=> 704020BL ;N1K< A?>A>1><. 5;0N C40G8. >;8G5AB2> G5B=KE M;5<5=B>2 K2>4 40==KE !C<<0 G5B=KE M;5<5=B>2 #A;>285 G5B=>AB8 "5;> F8:;0 !G5BG8: I 8p<5=O5BAO >B 1 4> n 2>4 40==KE <X=====0><>R>>>>??D?f???J@L@@@@@@@@^gd1^gdR & Fgd~P=====????J@L@@@@@@@@@@@@@@@@@@@@@@@@@@ζzhhhhhhh\h\h. CJaJmH sH "jh. CJUaJmHnHuh:h:B*CJ$aJ$ph"jh:CJUaJmHnHuh=]h1CJaJh1CJaJh:CJaJhI0h:5CJaJhI0h15CJaJhI0h=]5CJaJhRhRCJaJmH sH hRCJaJmH sH hRhRCJaJ#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@gd:^gd1@@@@@@@@@AAAAAA A(A*A.A0A8A:AxAAAAAAAAAAAAAB&B(B:B>BLBBܺܺyjyjyjyjyjyjyh1h0CJaJmH sH h1h1CJaJmH sH h~jh[CJaJh~jh~jCJaJh~jCJaJmH sH h~jCJaJh[CJaJh. CJaJjh. UmHnHuh. CJaJmH sH "jh. CJUaJmHnHu"jh[CJUaJmHnHu)@@@ A AAAAAAA"A$A&A(A,A.A2A:AAAAB(B>BBBBCgd. ^gd1BBBCVChCCCCCCCzD|DDDFFFFFFFGG&G:GdGpGGG>HNH^HlHHHHH,Iļ}}}qeqeqeqeqeqeqeqeqhCJaJmH sH hNLCJaJmH sH hNLhNLCJaJmH sH hNLCJaJhm[eCJaJhm[ehm[eCJaJhI05CJaJhI0hI05CJaJhI0CJaJhRCJaJh1h0CJaJh1h1CJaJh1h1CJaJmH sH h1h0CJaJmH sH 'CLCVCCCCCC|DDEE4FlFFFF GGbGGGGGH2H^H^gdNL & Fgdm[e^gd1^HHHH IXIbItIIIIIIIIDJKKM M"M$M&M(M*M^gd1^gd% & Fgd~+ & Fgd~+^gdNL,IVIXIII@JLMMM M"M$M(M*M4M6M8M:MMVM|qeYNC< h~+h h~+hrCJaJh~+h;ECJaJh~+hl6CJaJh~+h'5CJaJh~+hgkCJaJh~+h1CJaJh~+h0CJaJh~+h05CJaJh~+hI05CJaJh~+hNLCJaJh~+h%CJaJh%CJaJh~+CJaJh~+h~+5CJaJh~+CJaJmH sH hNLCJaJmH sH hCJaJmH sH *M,M.M0M2M4M6M8M:MM@MBMDMFMHMJMLMNMPMTMVMXM|M$a$gd:`gd* gd gd gdr^gd^R^gd1VMXMMMMMMMMMMMMMMMMMM N"N8N:NJNLNPNĵ{{whUh%h. h:B*CJ,aJ,mH phsH h. h:B*CJ,aJ,phhhh. h. B*CJ,aJ,phh. B*CJ(aJ(phh. h. B*CJ(aJ(phh.h[B*CJ,aJ,phh:h[B*CJ,aJ,phhjho hrhhh[hUh;Ehrh:h:B*CJ,aJ,phh~+h*5CJaJ|MMMMMMMMMMMMMMMMMMMMMMMMMN N$a$gd. $a$gd[$a$gd: N"N8N:NJNxNzNNNNNN`gd*$a$gd:$a$gd.  PNRNtNvNxNzNNNNN¶h~+h*5CJaJh5+hFh:h:B*CJ,aJ,phhhh. h:B*CJ,aJ,ph%h. h. B*CJ,aJ,mH phsH  ,1h. A!"R#n$n% B@B r1KG=K9CJ_HaJmHsHtHBAB A=>2=>9 H@8DB 0170F0XiX 1KG=0O B01;8F04 l4a .k. 5B A?8A:0  !"#$%&'()*+,-;SeqLY     sla`Z !"#$%&'()*+,-;Seq     Ll%Cl CD iwRk kBx a z   , B f k   6 F L ^ o N W C |  Gw)H_u%&FGHIJKLMNPQRSUWXY[]^_defhiklmnpqtvwxzKbw>m6Z[v/@Ex"%<=BIJM00000000 0000000000000000000000000000000000000000000000000000000000 00000000 0 0 0 000000000000@0@0@0@0@0@0@0@000000000000000000@0@0@00@0@00@00@0000@00@0@0@000@0@0@000@000@0@0@000000000000000000000000 0 0 0 0 000000000000000000000000000 0 0 0 0000000000000000000000000000000000000000000000000000@000@00000@000@00IQRMK000 K00K00?0K00 ^K00K008xI00K000K00K00  >=@B,IVMPNN)+-025Vv<@@C^H*M|M NN(*,./134N?2$b^q^qBʵU׸2$|]l6yl2$0Ʒe^8@ \ (  B Y   H Z # Z HR ` # ` B a    NB d S DNB e S DNB f S D NB g S D HB h C D HB i C DNB j S DH l # l HB o C DNB p S DH s # s HB y C DNB z S D {  WfjJ?^ 0Impact ]6]V[:[H?[^iO^O v/"`HB ~ C D HB  C DNB  S D   WfjJ?N 5BImpact ]][,[:[`T[I\V^h ]"`NB  S DH  #  B S  ?NSUY[_`abfinqrtxz{LY@ 0tdH<HtZ$ bteHH<t` ltpl<to<<tj titfH*HFta tgHHwt~ thHtld( t{H#(!@zHHtyHdt<< t @s$ SPtHHtt$ Ayt MM9*urn:schemas-microsoft-com:office:smarttagsplace ,WHO P a b : ; b c x y LMabOPde89|}M 1 3 N P    F K c e MO?FPRbd }M3333333333333333333333333333333$%CWDa y   6 F ] u&E|6"Rx;=HMM.\C$re7{@&>6M}@~X1_SJeFnVs"U^`o(. TT^T`hH. $ L$ ^$ `LhH.   ^ `hH. ^`hH. L^`LhH. dd^d`hH. 44^4`hH. L^`LhH.^`o(. ^`hH. pLp^p`LhH. @ @ ^@ `hH. ^`hH. L^`LhH. ^`hH. ^`hH. PLP^P`LhH.^`o(. ^`hH. SLS^S`LhH. # # ^# `hH.   ^ `hH. L^`LhH. ^`hH. cc^c`hH. 3L3^3`LhH.^`o(. T^T`hH. $ L^$ `LhH.  ^ `hH. ^`hH. L^`LhH. d^d`hH. 4^4`hH. L^`LhH.^`o( ^`hH. L^`LhH. _ ^_ `hH. / ^/ `hH. L^`LhH. ^`hH. ^`hH. oL^o`LhH.^`o(. ^`hH. L^`LhH.   ^ `hH. [[^[`hH. +L+^+`LhH. ^`hH. ^`hH. L^`LhH.ff^f`o(. 66^6`hH.  L ^ `LhH.   ^ `hH. ^`hH. vLv^v`LhH. FF^F`hH. ^`hH. L^`LhH.Je&>re71_SM}@.\CVsP^tnXM r^@EDQJbl5+J5 )  35 o G. 8 y"~+I0F;8|@;E=G\ KNLR[\d]>dm[ehh~jrDrBPL^RbH1:4#&'r%*'#[vc0)gkm|e=]FU~P>] :9pDhj.x]SlqvzMms@WL L``````8UnknownGz Times New Roman5Symbol3& z Arial"qh2f:$ *$ *!n242QHX)?r2/7K: ?@>3@0<<8@>20=8O PASCALadm!5@359(       Oh+'0  < H T`hpx PASCALadmNormal14Microsoft Office Word@ț@pS䢎@<ħ$՜.+,0 hp|  *   PASCAL    !"#$%&'()*+,-./012345689:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abdefghijlmnopqruRoot Entry F@Qħw1Table7$VWordDocument.lSummaryInformation(cDocumentSummaryInformation8kCompObjq  F Microsoft Office Word MSWordDocWord.Document.89q