Регистрация
Войти
Стать экспертом Правила
Информатика

написать программу в паскале ,Пожалуйста посчитайте умоляюПоле шахматной доски определяется парой – буква и цифра. Буква (a … h)означает горизонталь при счете снизу вверх, число (1 … 8) – номер вертикали при счете слеванаправо. Даны два натуральных числа K,M, не превышающие восьми, и два символа x,y.Требуется выяснить, если на поле (K, x) стоит ладья, угрожает ли она полю (M,y)?

ОТВЕТЫ

pascal

program ladya;

var

 K, M: integer;

 x, y: string;

begin

 Write('Введите числа К и М (от 1 до 8): ');

 ReadLn(K);

 ReadLn(M);

 Write('Введите буквы x и y (от a до h): ');

 ReadLn(x);

 ReadLn(y);

 if (K = M) or (x = y) then

     WriteLn('Ладья на поле ',x,K,' угрожает полю ',y,M)

 else

     WriteLn('Ладья на поле ',x,K,' не угрожает полю ',y,M);

end.

611
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам