klpc

Untitled

Jan 26th, 2020
40
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.15 KB | None | 0 0
  1. begin
  2. var a, b, c:integer;
  3. Read(a);
  4. b:= a mod 100 div 10;
  5. c:= a div 100;
  6. a:= a mod 100 mod 10;
  7. a:= a* 100 + b*10+ c;
  8. Write(a);
  9. end.
Add Comment
Please, Sign In to add comment