Viết phương trình nhập vào một xâu , đưa ra màn hình xâu ngược lại

0 bình luận về “Viết phương trình nhập vào một xâu , đưa ra màn hình xâu ngược lại”

1. program DaoNguocXau;

   uses crt;

   var i,k: byte;

   a: string;

   begin

   clrscr;

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

   k:=length(a);

   for i:= k downto 1 do write(a[i]);

   readln

   end.

   Bình luận