Begin Write (‘Katardin manin engiz:’);readln (x); Repeat K:=pos(‘{‘,X);if K>0 Then Begin I:=Pos(‘}’,X); If I>K Then Delete(X,K,I-K+1) End; Until K=0; Writeln (‘Katardin gana mani X=’,X);Readln End.
18.Берілген сөздің екі жаққа да бірдей жазылып оқылатынын анықтау программасын құру Program kat17; Var X,Y:String;K:Byte; Begin Write (‘Katardin manin engiz:’);Readln (X);Y:=’’; For K:=Length (X) Downto 1 Do Y:=Y+Copy(X,K.1); If X=Y then Writeln (‘eki gakka da birdei’) Else Writeln (‘birdei emes’); Readln End.
19.Әртүрлі тіркестермен амалдар қолдана отырып программа құрыңыз. Program Katar18; Var X:String[17];Y,A,B,C:String;N,M,Z,P:Integer; Begin X:=’oblistik gimnazia’; Z:=Length(x); P:=Pos(‘azia’,’oblistik gimnazia’); Readln (N,M);
