Nhập 1 xâu bất kỳ từ bàn phím?In ra màn hình 2 giá trị ở cuối xâu?

0 bình luận về “Nhập 1 xâu bất kỳ từ bàn phím?In ra màn hình 2 giá trị ở cuối xâu?”

1. var s: string;

         n, i: byte;

   Begin

         Write(‘nhap xau: ‘); readln(s);

         n:=length(s);

         For i:=n-1 to n do write(s[i]);

         Readln

   End.

   Bình luận

2. *Cách 1: dùng biến string để lưu kết quả

   program kitu_2cuoi;

   uses  crt;

   var s,st:string;

   begin

          clrscr;

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

          st:=s[length(s)-1]+s[length(s)];

          write(‘Hai ki tu cuoi la: ‘,st);

          readln;

   end.

   *Cách 2: dùng biến đếm chạy for…do

   program kitu_2cuoi;

   uses  crt;

   var s:string;

         i:byte;

   begin

          clrscr;

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

          for i:=length(s)-1 to length(s) do write(s[i]);

          readln;

   end.

   Bình luận