Advertisement
BeiZero

Untitled

Mar 28th, 2015
225
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.30 KB | None | 0 0
  1. import cp.
  2. main =>
  3.   N = read_int(),
  4.   maxX = 0,
  5.   maxY = 0,
  6.   x = 0,
  7.   y = 0,
  8.   F = 0,
  9.   while (F < N)
  10.     x: = read_int(),
  11.     if(x > maxX) then
  12.       maxX := x
  13.     end,
  14.     y: = read_int(),
  15.     if(y > maxY) then
  16.       maxY := y
  17.     end,
  18.     F:=F+1
  19.   end,
  20.   println(((maxX*maxY)/2)).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement