Advertisement
allekco

two

Oct 20th, 2019
123
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.14 KB | None | 0 0
  1. var
  2.     x, answer, key : integer;
  3. begin
  4.     readln (x);
  5.     key := abs(x mod 2);
  6.     answer := 10 - key * 20;
  7.     writeln (answer);
  8. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement