giúp em với ạ em đang cần gấp lắm ạ

0 bình luận về “giúp em với ạ em đang cần gấp lắm ạ”

1. program Tin_hoc;

   uses crt;

   var i,:Integer;

        a,b:string;

   begin

   clrscr;

   writeln(‘Nhap xau tu a den z:’);readln(a);

   b:=”;

   for i:= length(a) downto 1 do b:=b+a[i];

   writeln(‘Xau dao nguoc xau tren:’)writeln(b);

   readln;

   end.

   Bình luận