Ответы
Ответ дал:
0
Var a,b,c,d : Byte;
Begin
Readln(a,b);
Readln(c,d);
If (abs(a-c)>1) and (abs(b-d)>1) then Write('не ');
Writeln('угрожает');
end.
Begin
Readln(a,b);
Readln(c,d);
If (abs(a-c)>1) and (abs(b-d)>1) then Write('не ');
Writeln('угрожает');
end.
Похожие вопросы
2 года назад
2 года назад
9 лет назад