Viết chương trình nhập vào một xâu. Hoán đổi ký tự đầu và ký tự cuối của xâu Vd: chào bạn -> nhào bạc
2 câu trả lời
Cách 1: dùng xâu phụ:
uses crt;
var s,s1:string; c:char;
begin
clrscr;
write('Nhap mot xau: ');readln(s1);
s:=s1;
c:=s[1]; s[1]:=s[length(s)]; s[length(s)]:=c;
writeln(s1,'->',s);
readln;
end.
Cách 2: không dùng xâu phụ:
uses crt;
var s:string;
begin
clrscr;
write('Nhap mot xau: ');readln(s);
writeln(s,'->',s[length(s)],copy(s,2,length(s)-2),s[1]);
readln;
end.
var s: string;
ch: char;
Begin
Write('nhap xau: '); readln(s);
ch:=s[length(s)];
s[length(s)]:=s[1];
s[1]:=ch;
Write('xau sau khi xu ly: ', s);
Readln
End.
