Online JudgeProblem SetAuthorsOnline ContestsUser
Web Board
Home Page
F.A.Qs
Statistical Charts
Problems
Submit Problem
Online Status
Prob.ID:
Register
Update your info
Authors ranklist
Current Contest
Past Contests
Scheduled Contests
Award Contest
User ID:
Password:
  Register

水货

Posted by 785045613 at 2011-10-03 11:07:44 on Problem 1663
var
  x,y:longint;
begin
  readln(x);
  while not eof do
    begin
      readln(x,y);
      if (x=y) or (x=y+2) then
        begin
          if odd(x) then
            writeln(x+y-1)
          else
            writeln(x+y);
        end
      else
        writeln('No Number');
    end;
end.

Followed by:

Post your reply here:
User ID:
Password:
Title:

Content:

Home Page   Go Back  To top


All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator