Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- num, a, c, n: integer;
- begin
- readln(num);
- if num div 100 = num mod 10 then writeln('YES')
- else
- begin
- a := num div 100;
- c := num mod 10;
- n := num + (a - c);
- if a > c then
- writeln(n)
- else
- begin
- n := (num + 10) - (c - a);
- writeln(n)
- end;
- end;
- end.
Add Comment
Please, Sign In to add comment