[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1249
Const
  E=[14,13,11,7];
Var
  A: Array[1..2,1..3000] of byte;
  N,M,I,J,S: LongInt;
Begin
  Read(N,M);
  For I:=1 to M do
    Read(A[1][I]);
  For I:=2 to N do begin
    For J:=1 to M do
      Read(A[2][J]);
    For J:=1 to M-1 do begin
      S:=A[1,J]+A[1,J+1]*2+A[2,J]*4+A[2,J+1]*8;
      If S in E then begin
        Writeln('No');
        Exit;
      End;
    End;
    A[1]:=A[2];
  End;
  Writeln('Yes');
End.
Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 824