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