Tin lớp 11 Nhập 1 xâu kí tự cho biết độ dài của xâu. Kiểm tra kí tự đầu tiên và kí tự cuối cùng của xâu có giống nhau không và in xâu đảo ngược. Ai giúp mik với ạ
2 câu trả lời
program Xau;
uses CRT;
var s,s1: string;
i,d: integer;
begin
clrscr;
write('Nhap xau S: ');readln(s);
writeln('Do dai xau la: ',length(s));
If s[1] = s[length(s)] then writeln('Ki tu dau va cuoi bang nhau') else
writeln('Ki tu dau va cuoi khong bang nhau');
for i:=1 to length(s) do
s1:= s[i] + s1;
write('Xau dao nguoc: ',s1);
readln;
end.
uses crt;
var s:string;
i:longint;
begin
clrscr;
readln(s);
writeln(length(s));
writeln(s[1]=s[length(s)]);
for i:=length(s) downto 1 do write(s[i]);
readln;
end.
