klpc

Untitled

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