|
|
вернуться в форумPlease, help me with Problem 1000! Here it is. <ACCEPTED> var a, b: longint; begin {$IFNDEF ONLINE_JUDGE} ASSIGN (input, 'input.txt'); reset (input); assign (output, 'output.txt');; rewrite (output); {$ENDIF} read (input, a,b); write (output, a+b); {$IFNDEF ONLINE_JUDGE} close (input); close (output); {$ENDIF} end. |
|
|