написать программу в паскале ,помогите умоляю
Поле шахматной доски определяется парой – буква и цифра. Буква (a … h)
означает горизонталь при счете снизу вверх, число (1 … 8) – номер вертикали при счете слева
направо. Даны два натуральных числа K,M, не превышающие восьми, и два символа x,y.
Требуется выяснить, если на поле (K, x) стоит ладья, угрожает ли она полю (M,y)?
Поле шахматной доски определяется парой – буква и цифра. Буква (a … h)
означает горизонталь при счете снизу вверх, число (1 … 8) – номер вертикали при счете слева
направо. Даны два натуральных числа K,M, не превышающие восьми, и два символа x,y.
Требуется выяснить, если на поле (K, x) стоит ладья, угрожает ли она полю (M,y)?
Answers & Comments
Ответ:
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.