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

Обсуждение задачи 2001. Математики и ягоды

PASCAL
Послано fangcun 19 ноя 2014 15:27
var a:integer;
    b:integer;
    va:integer;
    vb:integer;
    ea:integer;
    eb:integer;
    ra:integer;
    rb:integer;
    boxa:integer;
    boxb:integer;
begin
    readln(a,b);
    readln(va,vb);

    boxb:=b-(va-a);
    rb:=b-boxb;
    readln(ea,eb);
    boxa:=va-(eb-vb);

    writeln(a-boxa,' ',b-boxb);

end.