ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1000. A+B Problem

Please, help me with Problem 1000!
Послано Stupid Petrov 24 окт 2002 13:03
Here it is. <ACCEPTED>
Послано Barnaul School #42-7 24 окт 2002 13:04
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.