Viết ct nhập vào một danh sách học sinh gồm họ tên quê quán năm sinh và đưa ra sâu đảo ngược của sâu đó

0 bình luận về “Viết ct nhập vào một danh sách học sinh gồm họ tên quê quán năm sinh và đưa ra sâu đảo ngược của sâu đó”

1. uses crt;

   var s,sd: string;

   i: byte;

   begin

   clrscr;

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

   for i:=length(s) downto 1 do sd:=sd+s[i];

   writeln (‘xau dao: ‘,sd);

   readln;

   end.

   Bình luận