1/Viết chương trình yêu cầu người nhập vào xâu . Hãy in ra màn hình kí tự in hoa của kí tự đầu và in hoa kí tự cuối của xâu 2/ viết chương trình yêu cầu nhập vào 2 xâu .Hãy in ra màn hình '' trung '' nếu kí tự cuối của 2 xâu đó giống nhau . Ngược lại in ra màn hình '' Khong trung'' GIÚP MÌNH VỚI MÌNH CẢM ƠN NHIỀU LẮM Ạ

`1)`

var st:string;

begin

clrscr;

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

writeln('Ki tu dau tien la: ',st[1]);

writeln('Ki tu cuoi cung la: ',st[length(st)]);

readln;

end.

`2)`

var x1,x2 : string;
begin clrscr;
writeln('Nhap xau ki tu thu nhat :'); readln(x1);
writeln('Nhap xau ki tu thu hai :'); readln(x2);
if length(x1) > length(x1) then writeln(x1) else
if length(x1) < length(x2) then writeln(x2) else
writeln(x1);
readln
end.

Câu 1 :

uses crt;

var s : string;

begin

clrscr;

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

writeln('In hoa ki tu dau : ', upcase(s[1]));

writeln('In hoa ki tu cuoi : ', upcase(s[length(s)]));

readln

end.

Câu 2 :

uses crt;

var s1, s2 : string;

begin

clrscr;

write('Nhap xau 1 : '); readln(s1);

write('Nhap xau 2 : '); readln(s2);

if s1[length(s1)] = s2[length(s2)] then

write('Trung') else write('Khong trung');

readln

end.