Viết chương trình nhập vào một xâu từ bàn phím, đưa ra màn hình xâu đảo ngược của xâu vừa nhập.

0 bình luận về “Viết chương trình nhập vào một xâu từ bàn phím, đưa ra màn hình xâu đảo ngược của xâu vừa nhập.”

1. program xaudao;

   uses crt;

   var st:string;

   begin

   clrscr;

   write(‘nhap xau: ‘);

   readln(st);

   write(‘Xau dao la: ‘);

   for i:=length(st) downto 1 do

     write(st[i]);

   readln;

   end.

   Bình luận

2. uses crt;

   var s:string;i:integer;

   begin

   clrscr;

   write(‘nhap xau can dao nguoc: ‘);readln(s);

   write(‘xau sau khi dao nguoc: ‘);

   for i:=length(s) downto 1 do

   begin

   write(s[i]);

   end;

   readln;

   end.

   Bình luận