Х қатарындағы фигуралық жақшалар ішінде тұрған фрагмент терді алып тастап шығару программасы ІІІ-кезең Қате жазылған программа Program Kat8;
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.
Қатесіз дұрыс жазылған программа Program Kat8;
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 dirdei’)
Else Writeln (‘Birdei emes’);
Readln End.
