Advertisement
Guest User

Untitled

a guest
Aug 3rd, 2019
138
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.11 KB | None | 0 0
  1. begin
  2.   var s:= ReadString;
  3.   var d := length(s);
  4.   (s[d - 1],s[d]):= (s[d],s[d - 1]);
  5.   writeln(s);
  6. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement