nhập vào 2 xâu nếu độ dài xâu 1 lớn hơn xâu 2 thì in hoa kí tự đầu tiên của xâu 1 , ngược lại in hoa kí tự cuối cùng của xâu 2
2 câu trả lời
var s1, s2: string;
Begin
Write('nhap xau s1: '); readln(s1);
Write('nhap xau s2: '); readln(s2);
If length(s1) > length(s2)
s1[1]:=upcase(s1[1])
Else s2[length(s2)]:=upcase(s2[length(s2)]);
End.
program phuongt;
uses crt
var s, a: string;
begin
write('Nhap xau 1: '); readln(s);
write('Nhap xau 2: '); readln(a);
if length(s)>length(a) then
begin
s[1]:=upcase(s[1]);
write(s);
end
else
begin
a[length(a)]:=upcase(a[length(a)]);
write(a);
end;
readln
end.
