Tin học Tin học 11: Viết chương trình nhập vào 1 xâu, kiểm tra xem xâu có phải là xâu đối xứng không 16/07/2021 By Julia Tin học 11: Viết chương trình nhập vào 1 xâu, kiểm tra xem xâu có phải là xâu đối xứng không
uses crt;var i,kt:byte; s:string;beginclrscr; write(‘Nhap vao 1 xau: ‘);readln(s); kt:=0; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then kt:=1; if kt=0 then writeln(‘Day la xau doi xung’) else writeln(‘Day khong la xau doi xung’);readlnend. Trả lời
program kiem_tra_xau_doi_xung; uses crt; var s, s1: string i:integer; begin clrscr; writeln(‘Nhap vao xau s: ‘); readln(s); for i:=length(s) downto 1 do s1:=s1+s[i]; if (s1=s) then writeln(‘Xau doi xung’) else writeln(‘Xau khong doi xung’); readln; end. Cho mình CTLHN nha Trả lời