ENG
RUS
Timus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
Обсуждение задачи
A
. Извержение вулкана
Показать все ветки
Спрятать все ветки
Показать все сообщения
Спрятать все сообщения
How to make it even easier?
Megapolice
A
. Извержение вулкана
31 окт 2012 21:35
1
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.
Admins, please, insert this problem to problem set
alexProgrammer
A
. Извержение вулкана
29 окт 2012 13:40
2
Admins, please, insert this problem to problem set
alexProgrammer
28 окт 2012 17:33
Re: Admins, please, insert this problem to problem set
Bogatyr
29 окт 2012 13:40
Agreed, it is good to have some basic problems for beginners.
Новая тема
Вид форума:
плоский
|
древовидный
|
классический
Сортировка веток:
всплывающая
|
фиксированная
© 2000–2026
Timus Online Judge Team
. Все права защищены.