uses crt; var s:string; i,j,n:longint; a:array[1..1000]of string; begin clrscr; readln(s); s:=' '+s+' '; for i:=1 to length(s)-1 Do if (s[i]=' ')and(s[i+1]<>' ') then inc(n) else if s[i]<>' ' then a[n]:=a[n]+s[i]; for i:=1 to n do begin for j:=length(a[i]) downto 1 do write(a[i][j]); write(' '); end; readln end.
program bai_giai; uses crt; var s,st:string; function dao(x:string):string; var r:byte; begin dao:=''; for r:=length(x) downto 1 do dao:=dao+x[r]; end; BEGIN clrscr; readln(s); s:=s+' '; while pos(' ',s)<>0 do begin st:=copy(s,1,pos(' ',s)-1); write(dao(st),' '); delete(s,1,pos(' ',s)); end; readln; end.
