IV-кезең For K:=1 To Length (X) Div 2 Do If X[K]=X[(Length(X)+1-K] Then N:=N+1 Program Kat9;
Var X,Y:String;K:Byte;
Begin Write(‘Katardin manin engiz:’);Readln(X);N:=0;
For K:=1 To Length (X) Div 2 Do
If X[K]=X[(Length(X)+1)-K] Then N:=N+1;
If N=Length(X) Div 2 Then Writeln (‘Katar eki gakka da birdei okiladi’)
Else Writeln (‘Okilmaidi’);
Readln End.
V-кезең Program Kat10;
Const T:Array[1..5] of String=(‘Tobol’,’Kaisar’,’Irtysh’,’Taraz’,Tor’);
Var K,N,I:Byte;
Begin For K:=1 To 5 Do Write (T[K]:7);Writeln;
N:=5;K:=0;Repeat K:=K+1;
While Copy (T[K],1,1)=’T’ Do Begin I:=K;
Repeat T[I]:=T[I+1];I:=I+1;Until I>=N;
T[N]:=’’;N:=N-1;End;
Until K>=N;
Writeln (‘Gana tizim:’);
For K:=1 To N Do Write (T[K]:7);
Readln End.
