Viết chương trình nhập 1 xâu từ bàn phím cho tên biến T. Ghi xâu đã nhập ra màn hình ghi xâu viết ngược trình tự của xâu đã nhập ra màn hình

0 bình luận về “Viết chương trình nhập 1 xâu từ bàn phím cho tên biến T. Ghi xâu đã nhập ra màn hình ghi xâu viết ngược trình tự của xâu đã nhập ra màn hình”

1. uses crt;
   var T:string; i:byte;
   begin
      clrscr;
      write(‘Nhap xau: ‘); readln(T);
      write(‘Xau la: ‘,T);
      writeln;
      write(‘Xau viet nguoc la: ‘);
      for i:=length(T) downto 1 do write(T[i]);
      readln
   end.

   Bình luận

2. Var T: string;

          i: integer;

   Begin

   clrscr;

   Readln(T);

   Writeln(T);

   For i:= lenght(T) to 1 do

    Write(T[i]);

   End.

   Bình luận