viết chương trình nhật vào một xâu kí tự, đếm số kí tự xuất hiện trong xâu và đảo ngược xâu đó?

0 bình luận về “viết chương trình nhật vào một xâu kí tự, đếm số kí tự xuất hiện trong xâu và đảo ngược xâu đó?”

1. uses crt;
   var xau1,xau2:string;

        dem,i:byte;
   begin
   clrscr;
   write(‘Nhap xau: ‘);   readln(xau1);
   for i:=1 to length(xau1) do
     begin
       xau2:=xau1[i]+xau2;
      inc(dem);
    end;
   writeln(‘trong xau co: ‘,dem,’ ki tu’);
   write(‘xau sau khi dao la: ‘,xau2);
   readln;
   end.

   Bình luận

2. program xau;

   uses crt;

   var s1,s2:string;

         d,i:byte;

   begin

   clrscr;

   write(‘Nhap xau: ‘);   readln(s1);

   for i:=1 to length(s1) do

     begin

      s2:=s1[i]+s2;

      inc(d);

    end;

   writeln(‘Xau co: ‘,d,’ ki tu’);

   write(‘Xau dao la: ‘,s2);

   readln

   end.

   Bình luận