Advertisement
Guest User

Untitled

a guest
Feb 23rd, 2019
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.37 KB | None | 0 0
  1. var
  2.   w, b, n, k, s : longint;
  3.  
  4. begin
  5.   readln(w);
  6.   readln(b);
  7.   readln(n);
  8.   k := 0;
  9.   if (1 <= w) and (w <= 10000) then
  10.     if (1 <= b) and (b <= 10000) then
  11.       if (1 <= n) and (n <= 10000) then
  12.         if w = b then
  13.           s := w * 2
  14.         else
  15.           s := min(w,b) * 2 + 1;
  16.   if n > s then
  17.     write('NO')
  18.   else
  19.     write('YES')
  20. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement