Viết chương trình nhập vào 1 xâu. Viết hoa kí tự đầu và kí tự cuối của xâu. Vd: “chào bạn”->”Chào bạN”
2 câu trả lời
uses crt;
var s:string;
begin
clrscr;
write('Nhap 1 xau: ');readln(s);
s[1]:=upcase(s[1]);
s[length(s)]:=upcase(s[length(s)]);
writeln(s);
readln
end.
program in_hoa;
uses crt;
var s:string;
begin
clrscr;
write('Nhap xau: '); readln(s);
s[1]:=upcase(s[1]); {kí tự s[1] bằng in hoa kí tự s[1]}
s[length(s)]:=upcase(s[length(s)]); {kí tự cuối bằng in hoa kí tự cuối}
write(s);
readln;
end.
