Viết chương trình nhập vào xâu, đưa ra xâu đảo theo từ

Viết chương trình nhập vào xâu, đưa ra xâu đảo theo từ. Ví dụ: đi xe đạp -> đạp xe đi.

Ôn tập phép toán trên kiểu số

Phép toán   Ý nghĩa         Ví dụ

------------------------------------------------------

-           Lấy đối số      Đối số của 2 là -2

+           Cộng            10 + 9 -> 19

-           Trừ             10 - 9 -> 1

*           Nhân            10 * 9 -> 90

/           Chia            10 / 4 -> 2.5

Div         Chia lấy phần nguyên    10 div 3 -> 3

Mod         Chia lấy phần dư    10 mod 3 -> 1

(Div và Mod chỉ áp dụng cho kiểu nguyên).

Bài giải

Program Dao;

uses crt;
var s:string;
    x,y,z,t:byte;
begin
  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.

Hình minh họa