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

Обсуждение задачи 1877. Велосипедные коды

Показать все сообщения Спрятать все сообщения

wa3? mediant 8 фев 2013 01:29
var   a,b:integer;

begin
   if(a mod 2 =1) or (b mod 2=0)  then writeln('no')
   else writeln('yes')
end.

or wa1?


var c,d : integer;
    a,b : string[4];
begin
   readln(a);
   readln(b);
   val(a,c);
   c:=c mod 2;
   val(b,d);
   d:=d mod 2;
   writeln(c,d);
   if (c=1) or (d=0) then writeln('no')
   else writeln('yes');

end.