     
  


       ( ,   )    .                 .  ,    ,   .





 

     








       -           (         )   .   ,          -  (     )    .

   ,     .       .

   :

-,   (,    ,        )    ;

-,           ;

-,        ,   (  ,    ,       ,       ,   . ).

, 




   



     ,              (  ),  ,     .,    ,               (   ,      ..).              ,      (    )    8-   (ASCII  MS-DOS, -8, Windows  .)       16-    Unicode.

 ,         (    Unicode)         . ,         ,     ,  ,        ,   .

   :

  char,     - ;     , : 'a', '0', '+'  ..;

 (, , )  string,      ;      , : ''.

    :   string        char (          ).

     (   )       var:

     var <>: char;

     var <>: string;

          (  ),        (. . 1):



var <>: string[<>];



    <>    ,     ,    .      ,              .  ,            ,    :       ,      (         !),        .          (),       ,   ,           ,     .












  ,   ,         var  ,       .         255 , ..        256  (,   ,          ).    ,       , ,   ,      .

        .          ,     . ,       :

   var < > : array[<- >] of char;

   var < >: array[<- >] of string;

         string,      ,      (  , ,      ).

                           .



   !   .

 , ,  ,      ,    (     , ,  )    :  ,    string,          (   string),       ,          ()    ! (   ,        .)

,      



var stroka : string[10]; 



     '!',  



writeln(stroka[1]);



    '',  



writeln(stroka[7]);



   .

,           ,          ..

           ( MID$(< >,< >,1)  ),           .          ,  ,      .



 ,         ,                (       Help    ,           Pascal ABC.Net).















































        :

   ,   -   - ,         (: d := Length(s); ), , ,      (writeln(Length(s)); );

,    ,      ,         (),            .    , : Delete(stroka,5,1);    (  stroka   ,   5- ),  stroka1 :=Delete(stroka,5,1);   .



  , ,   .




 1


  .      .



  :    ,       ( 1-  ,  ,   ),             (., ,, ;, ! ..)      -     ,       .

    :












  .

1.       dl (    Lenght).

2.  k,                 , .

3.   for    i  1     dl.

4.        (   i)  .            :  , ,   ,    ,      ( : MID$(ST$,I,1),    Copy(st,i,1) ),             st   i: st[i].

5.   (st[i])          ,     st[i] = '.'    or   if.    then (..          )      (i)   k     break.

6.       break  ,      ,       ,      .        k:

 k   , ,            k,       k-    (. 7);

,  k = 0,  ,      ,     ,   k  ,        ,      ,      .

7.     ,  .    ,      .            k- (  ),    ()          k- (    )  .    (   )  ,   LeftStr(st, k-1),   ()    RightStr(st, dl-k).        ,    ,   . 2.












  .       :      ( or)       -  .  , ,   ,              ,    (,   )    ?    (     - - )   ,               

   ,         ,   ? !      , ,  ,        (   ).



     .     ,         ,      ,    .     .            ,  [1, 2, 3]  [3, 2, 1]        .        :           ,  , ,  [1, 2, 3, 2, 1]   .

      :












 ,     , ,    ,         . :












            , :












     (   ),     [].



     :

 ( + )    ,  (  !) ,         ;

 ( * )    ,   ,       ;

 (  )        ,   ,       ,    ;

     ( in




  .


   .

   ,     (https://www.litres.ru/pages/biblio_book/?art=63099338)  .

      Visa, MasterCard, Maestro,    ,   ,     ,  PayPal, WebMoney, ., QIWI ,       .


