ࡱ> ( / 0LDArialԖ0Ԗ0ll/ׯ0@ . @n?" dd@  @@`` x4e "%  '! 0AA@3@3ʚ;sN6ʚ;g4QdQd< ׯ0ppp@ <4dddd8vS0l/ 80___PPT10 pp?  %O  =4       0  0` 33` Sf3f` 33g` f` www3PP` ZXdbmo` \ғ3y`Ӣ` 3f3ff` 3f3FKf` hk]wwwfܹ` ff>>\`Y{ff` R>&- {p_/̴>?" dd@,|?" dd@   " @ ` n?" dd@   @@``PR    @ ` ` p>> PH(    6(u  `}  V"1@075F 703>;>2:0 \  0w  `  1@075F B5:AB0 B>@>9 C@>25=L "@5B89 C@>25=L '5B25@BK9 C@>25=L OBK9 C@>25=L M  0 ^ `  >*  0 ^   @*  0l ^ `  @*z  Td޽h ?"` 3380___PPT10. ?V .D>@<;5=85 ?> C<>;G0=8N@0 `4P(  4 4 0̑ P    P*   4 0     R*  d 4 c $ ?  \ 4 0D  0  1@075F B5:AB0 B>@>9 C@>25=L "@5B89 C@>25=L '5B25@BK9 C@>25=L OBK9 C@>25=L M 4 6 _P   P*   4 64 _   R*  H 4 0޽h ? 3380___PPT10.p;`)00 $ >;<K:>20 !.. nf (    <h.`t4  V"  " + &.0  <2  8/7K: ?@>3@0<<8@>20=8O PASCAL( H  0޽h ? 33___PPT10i. ?V+D=' 2= @B + 0   0!  (     <,- |>?5@0B>@ F8:;0 A ?@54CA;>285<. " B  6_2i" WHILE <CA;>285>(  XB  0D"  2  6 f22<%  |DO <>?5@0B>@>(  XB  0D99  Bk2"9d  40  Bp2  65B  <s2z u Z(!B@C:BC@0 >?5@0B>@0   0w2  6>:0 CA;>285 8AB8==> 2K?>;=O5BAO >?5@0B>@, A;54CNI89 70 A;C651=K< A;>2>< DO. 0: B>;L:> CA;>285 AB0=>28BAO ;>6=K< 2K?>;=5=85 >?5@0B>@0 F8:;0 ?@5:@0I05BAO.2IQI Q  <~2} J  z WHILE <CA;>285> DO <>?5@0B>@>; > X    LB  c $D%   LB  @ c $D  LB  c $D RB  s *DLB  c $D= LB  c $D c LB  @ c $Dc  c RB ! s *Dc   H  0޽h ? 33___PPT10i. `Z#+D=' 2= @B + 0 (  P (    <2 H@8<5@ 1:   <P2? V 07;>68BL F5;>5 G8A;> =0 ?@>ABK5 <=>68B5;8.,,  <̧2 HProgram ex_1; Var x, m: integer; Begin Write ( 2548B5 F5;>5 G8A;> ); Readln (x); Writeln ( 07;>65=85 G8A;0  , x,  =0 ?@>ABK5 <=>68B5;8. ); m:= 2; While m <= x Do {?>:0 CA;>285 8AB8==>} If (x mod m) = 0 Then Begin Write (  *  , m); x:= x div m; End Else m:= m + 1; End.333               (            $   <2  ,x  <D2) O    <2   |{2K?>;=OBL} (   H  0޽h ? 33___PPT10i.  d01+D=' 2= @B + 0 $p$(     B“   408 M   B  6Ɠo L  UNTIL <CA;>285>(  `B  0D    6̓M o > REPEAT <>?5@0B>@ 1>; <>?5@0B>@ 2>; . . . <>?5@0B>@ N>;\\P       ZB   s *D  ZB   s *D `B   0D`B  B 0Dpo   B<Փo V  65BZB  s *D  <ؓcu* l:?5@0B>@ F8:;0 A ?>ABCA;>285<  <Hޓ] / X&!B@C:BC@0 >?5@0B>@0  6,z] %  NREPEAT <>?5@0B>@ 1>; <>?5@0B>@ 2>; . . . <>?5@0B>@ N>;2U 2HP         Bc K  "UNTIL <CA;>285>;& (  X   0t)  ! <}Y L"5;> F8:;0 $ " <  K?>;=ONBAO >?5@0B>@K, A;54CNI85 70 A;>2>< REPEAT. >A;5 MB>3> ?@>25@O5BAO CA;>285. A;8 CA;>285 ;>6=>, "> ?@>8AE>48B 2>72@0B : 2K?>;=5=8N >?5@0B>@>2, !;54CNI8E 70 A;>2>< REPEAT 8 A=>20 ?@>25@O5BAO CA;>285. A;8 CA;>285 8AB8==>, B> 2K?>;=5=85 B5;0 F8:;0 ?@5:@0I05BAO.N +z[0+ z [H  0޽h ? 33___PPT10i. ߴ-+D=' 2= @B +5 0 LD(    <H27c J@8<5@ 2: KG8A;8BL AC<<C 42CE G8A5;. (#A>25@H5=AB2>20==0O ?@>3@0<<0):{ a  <2; ZrProgram Ex_2; Var x, y, sum: real; t: byte; Begin Repeat Writeln ( 2548B5 G8A;0 E 8 C.  ); Readln (x, y); sum:= x + y; Writeln ( !C<<0 G8A5; @02=0  , sum); Write ( 025@H8BL ?@>3@0<<C? 1-40, 2-=5B:  ); Readln (t); Until t = 1; End.Z:E33 j                       #     X  0g   <2c i  L"5;> F8:;0 H  0޽h ? 33___PPT10i.  D+D=' 2= @B +e 0 | t & 0  (     <hG h8?5@0B>@ F8:;0 A ?0@0<5B@><.h  <w-A ?5@0B>@ F8:;0 A ?0@0<5B@>< >@30=87C5B 2K?>;=5=85 >4=>3> >?5@0B>@0 70@0=55 8725AB=>5 :>;8G5AB2> @07.ff  6 6  z<>?5@0B>@K>  (    R  6 FOR i:= start TO finish DOT  XB  0DV V RB  s *D6 V V RB  @ s *D ]V RB  s *D]] XB  0D]RB  s *D`RB  s *D``6RB  @ s *D6) `6XB  0D6) ) Y  B@ V7<5=5=85 ?5@5<5==>9 i (A;54CNI55 7=0G5=85),,   Bęc\ F>=5F F8:;0 XB  0DW W H  0޽h ? 33___PPT10i. @jI+D=' 2= @B + 0 , $  $(  $ $ <2=  < BB>@>9 20@80=B (start > finish) FOR i:= start DOWNTO finish DO <>?5@0B>@>; j x         $ <tV T( Di - ?0@0<5B@ F8:;0; start - =0G0;L=>5 7=0G5=85 ?0@0<5B@0; finish  :>=5G=>5 7=0G5=85 ?0@0<5B@0; <>?5@0B>@> - B5;> F8:;0   d      $ <T  X&!B@C:BC@0 >?5@0B>@0P  $ <Ļ<   5@2K9 20@80=B (start < finish) FOR i:= start TO finish DO <>?5@0B>@>; X X     H $ 0޽h ? 33___PPT10i. 0+D=' 2= @B +0  ((  (\ ( <sjm @8<5@ 3 @>3@0<<0 ?5G0B05B 5 @07 D@07C / C<5N AG8B0BL 2R/ ( <''  Program Ex_3; Var k: integer; Begin For k:= 1 To 5 Do Writeln ( / C<5N AG8B0BL ); End.j.3333                 ( < c (  { "5;> F8:;0 }(   H ( 0޽h ? 33___PPT10i. p<+D=' 2= @B +0 0,`(  , , <T7 @8<5@ 4 @>3@0<<0 2KG8A;O5B AC<<C G8A5; >B 1 4> 10*P%+0   + , <7  ,8Program Ex_4; Var m, sum: integer; Begin sum:= 0; For m:= 1 To 10 Do sum:= sum + m; Write (  , sum); End.zK33336V  3 C   H , 0޽h ? 33___PPT10i. +D=' 2= @B +u0 P0(  0x 0 <0; G v 0 <T,Z @8<5@ 5 0CG8BL :><?LNB5@ AG8B0BL 2 >1@0B=>< ?>@O4:5 (>B 15 4> 1)*Q:  D 0 <|D@  zvProgram Ex_5; Var x: integer; Begin For x:= 15 Downto 1 Do Writeln (x); End. jw83 33!v         H 0 0޽h ? 33___PPT10i. y+D=' 2= @B +-0 D<(    <aUG\TL___PPT9.& ><0H=55 7040=85: K?>;=OBL 45;5=85 ;N1>3> G8A;0 % =0 420, ?>:0 % =5 AB0=5B <5=LH5 1. (F8:; A ?@54CA;>285<) 2. 0?8A0BL ?@>3@0<<C, :>B>@0O 2KG8A;8B AC<<C 1 + 1/2 + 1/3 + . . . + 1/50. (F8:; A ?0@0<5B@><)*8jJ40[  l8XH  0޽h ? 33___PPT10i. ^+D=' 2= @B +r<./'H3]DguMY$c)joOz1Oh+'0p `hx   1 .. ..10Microsoft PowerPoint@W@W @20 "..  !"#$%&'()*+,-./0123456789:;<=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root EntrydO)Current UserSummaryInformation(>PowerPoint Document({DocumentSummaryInformation8