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

0 bình luận về “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”

1. 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.

   Bình luận