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

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

Wrong answer (Test 1)
Послано Damir 28 ноя 2017 15:09
program SumAB;
var
  a,b:integer;
begin
  Assign(input,'input.txt');
  Reset(input);
  Assign(output,'output.txt');
  Rewrite(output);
  Readln(a,b);
  Writeln(a+b);
  Close(input);
  Close(output);
end.
При таком коде возникала ошибка.
Написал
program SumAB;
var
  a,b:integer;
begin
  Readln(a,b);
  Writeln(a+b);
end.
Система приняла. Т.е что получается, не нужно писать имена входного/выходного файлов?
А в других задачах тот же принцип?
Re: Wrong answer (Test 1)
Послано Oleg Baskakov 28 ноя 2017 22:08
Читайте FAQ. http://acm.timus.ru/help.aspx?topic=pascal
В самом конце есть следующая конструкция:

{$IFNDEF ONLINE_JUDGE}
   assign(input, 'input.txt');
   reset(input);
   assign(output, 'output.txt');
   rewrite(output);
{$ENDIF}
   readln(a, b);
   writeln(a + b);
{$IFNDEF ONLINE_JUDGE}
   close(input);
   close(output);
{$ENDIF}

которая означает, что на вашем компьютере данные будут читаться из input.txt и писаться в output.txt, а на сервере будет использоваться стандартный ввод-вывод.