Viết chương trình nhập vào một câu : a)Kiểm tra xem xâu đó có là xâu đối xứng hay ko? b)Chuyển đổi xâu vừa nhập thành xâu in hoa Giúp mk vs 🤧
2 câu trả lời
var s: string;
i, kt: byte;
Begin
Write('nhap xau: '); readln(s);
Kt:=1;
For i:=1 to (length(s) div 2) do
If s[i] <> s[length(s) - i + 1]
Then kt:=0;
If kt=1 then write('la xau doi xung')
Else write('khong phai xau doi xung');
For i:=1 to length(s) do
s[i]:=upcase(s[i]);
Readln
End.
var st,s:string; i:byte; kt:boolean;
begin
write('nhap xau'); readln(st);
kt:=true; i:=1; s:='';
while (kt=true)and(i<=(length(st) div 2)) do
begin
if st[i]<>st[length(st)-i+1] then kt:=false;
i:=i+1; end;
if kt then write('phai') else write('ko');
for i:=1 to length(st) do s:=s+ upcase(st[i]);
write('xau in hoa ',s);
readln end.
