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

Обсуждение задачи 1214. Странная процедура

What is wrong?...
Послано YoD 28 мар 2005 19:11
program Project1;


VAR
  x, y : longint;


begin

  readln(x, y);
  if ((x mod 2 = 0) or (y mod 2 = 0)) and (x > 0) and (y > 0) then
    writeln(y, ' ', x)
  else
    writeln(x, ' ', y);



end.
Re: What is wrong?...
Послано YoD 28 мар 2005 19:14
Oh... I have found my foolish error...