Cho xâu St. Hãy xuất ra xâu đối xứng của St bằng Pascal

2 câu trả lời

Const Fi='Xaudoixung.INP';
      Fo='Xaudoixung.OUT';


Var f,g: text;
    St: String;


Function DX(S:String):String;
Var S1: String;
    i: longint;
Begin
        S1:='';
        For i:= Length(S) downto 1 do
                S1:=S1+St[i];
        DX:=S1;

End;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);

        Readln(f,St);
        Write(g,DX(St));
        Close(f);
        Close(g);
End.

var st:string;

     i:byte;

begin

write('Nhap xau: '); readln(st);

write('Xau doi xung la: '); 

for i:=length(st) downto 1 do write(s[i]);

readln

end.

Câu hỏi trong lớp Xem thêm