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

Обсуждение задачи A. Извержение вулкана

How to make it even easier?
Послано Megapolice 31 окт 2012 21:35
var
  a,b,c,d:integer;
begin
  read(a,b,c,d);
  if   ((a-b=0)or(a-c=0)or(a-d=0))
    and((b-a=0)or(b-c=0)or(b-d=0))
    and((c-a=0)or(c-b=0)or(c-d=0))
    and((d-a=0)or(d-b=0)or(d-c=0)) then
    writeln('yes')
  else
    writeln('no');
end.