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

Общий форум

Whi WA. P1224
Послано I am david. Tabo. 5 ноя 2002 20:11
var nn,m,n:longint;
begin
  readln (m,n);
  if m>n then
    nn:=m-(m-n+1)
  else
    nn:=n-(n-m+1);
  writeln (2*(nn));
end.
I got AC
Послано I am david. Tabo. 6 ноя 2002 21:16