BÀI TẬP 24: ĐẢO TỪ

Viết chương trình nhập vào một chuỗi ký tự (không quá 255 ký tự). In ra màn hình từ ngược lại của chuỗi vừa nhập

Ví dụ: Nhap chuoi: Ngo Dinh Can

           In ra màn hình chữ: Can Dinh Ngo

CODE THAM KHẢO:

uses crt;

var s:string;

    y,z,t:byte;

begin

    clrscr;

    write('Nhap vao mot xau: ');

    readln(s);

    z:=length(s);

    for y:=length(s) downto 1 do

    begin

        if ((s[y]=' ')or(y=1)) then 

            begin 

                for t:=y to z do write(s[t]);

                z:=y 

            end;

        write(' ');

    end;

    readln;

end.