klpc

Untitled

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