PascalABC.NET 3.4

begin var (x,y):=ReadReal2('Координаты слона (х y):');
if not x.Between(1,8) or not y.Between(1,8) then begin
    Writeln('Координата должна быть в пределах 1..8');
    Exit
    end;
var (x1,y1):=ReadReal2('Координаты фигуры (х y):');
if not x1.Between(1,8) or not y1.Between(1,8) then begin
    Writeln('Координата должна быть в пределах 1..8');
    Exit
    end;
if Abs(x-x1)=Abs(y-y1) then Writeln('Можно убить')
else Writeln('Нельзя убить')
end.

0 0

3 года назад

Прочитать ещё 2 ответа

Укажите к каким информационным процессам относится телефонный разговор

Spodenets

К передаче информации

0 0

3 года назад

Опишите правила входа в систему ОС Windows.

Руслан071189

1. Включить и проверить работу кулеров
2. Нажать кнопку Power
3. Ждать 15 минут для полной прогрузки ОС
4. Проверить температуру всех частей пк программой AIDA
5. Ввести пароль
6. Начать работу

0 0

4 года назад