Function oncat(S1[S2,...,Sn]:String):String;
.
S1,S2,...,Sn - ;
1.
Program Ct1;
Var S,S1,S2:String;
Begin
Writeln( 1 );
Readln(S1);
Writeln( 2 );
Readln(S2);
S:=oncat(S1,S2);
Writeln(S= ,S);
End.
Function opy(S:String;I,C:Integer):String;
S
S -
I -
-
2.
Program Ct2;
Var S,S1:String;
Begin
Writeln( );
Readln(S1);
S:=opy(S1,3,4);{ 4 , 3-}
Writeln(S= ,S);
End.
Function Length(S:String):Integer;
S - ,
3.
Program Ct3;
Var S:String;
Y:Integer;
Begin
Writeln( );
Readln(S);
Y:= Length(S);
Writeln( = ,Y);
End.
Function Pos (S1,S2:String):Byte;
S1 S2 ( S2, , 0, )
S1 ;
S2 , ;
4.
Program Ct4;
Var S2,S1:String;
Y:Integer;
Begin
Writeln( );
Readln(S2);
Writeln( );
Readln(s1);
y:= Pos(S1,S2);
Writeln( ,Y);
End.
Procedure Delete(Var S:String;I,C:Integer);
S
S -
I -
-
5.
Program Ct5;
Var S:String;
Begin
Writeln( );
Readln(S);
Delete(S,5,3);{ 3 , 5-}
Writeln(S= ,S);
End.
Procedure Insert(C:String;Var S:String;I:Integer);
C S
S -
C - ,
I - o , ,
6.
Program Ct6;
Var C,S:String;
Begin
Writeln( );
Readln(S);
Writeln( );
Readln(C);
Insert(C,S,5);{ S , , 5 }
Writeln(S= ,S);
End.
Procedure Str(X[:M[:N]];Var S:String);
.
X -
S - ,
M,N -
7.
Program Ct7;
Var S:String;
Y:Integer;
Begin
Writeln( );
Readln(Y);
Str(Y,S);
Writeln(, = ,S);
End.
Procedure Val (S:String;Var X; Var C:Integer);
.
S c ;
|
|
X - ;
(0 )
8.
Program Ct8;
Var S:String;
Y:Integer;
Begin
Writeln( );
Readln(S);
Val(S,Y,C);
Writeln( = ,Y*10);{ }
End.
: , .
8.
Program Ct8;
Var S:String;
K,Y:Integer;
Begin
Writeln( );
Readln(S);K:=1;
For Y:=1 to Length(S) do
If Copy(S,Y,1)= Then K:=K+1;
Writeln( ,K, );
End.
, .
1_1. 3- .
2_1. 3 , 6-.
3_1. 3 , 2-.
1_2. , .
2_2. , .
3_2. .
1_3.
2_3. ,
3_3.