Viết chương trình nhập vào 2 xâu đưa ra độ dài xâu thứ nhất và in đảo ngược xâu thứ 2 Giúp mình với ạ

0 bình luận về “Viết chương trình nhập vào 2 xâu đưa ra độ dài xâu thứ nhất và in đảo ngược xâu thứ 2 Giúp mình với ạ”

1. var s1, s2: string;

         i: byte;

   begin

      Write(‘nhap xau thu nhat: ‘); readln(s1);

      Write(‘nhap xau thu hai: ‘); readln(s2);       Writeln(‘do dai xau thu nhat: ‘, length(s1));

      For i:=length(s2) downto 1 do

             Write(s2[i]);

      Readln

   End.

   Bình luận

2. program bai_xau;

   uses crt;

   var s1,s2:string;

        i:byte;

   begin

          clrscr;

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

          write(‘Nhap xau thu hai: ‘);  readln(s2);

          writeln(‘Do dai xau thu nhat la: ‘,length(s1));

          write(‘Xau dao nguoc cua xau thu hai la: ‘);

          for i:=length(s2) downto 1 do write(s2[i]);

          readln;

   end.

   Bình luận