1. Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8. Напишите программу, которая по введенным координатам двух полей (k, l) и (m, n) определяет, являются ли эти поля полями одного цвета.

Пример входных данных: координаты 1-го поля - 2 2; координаты 2-го поля - 3 3 Пример выходных данных: поля одного цвета

2.Напишите программу, в которой пользователю предлагается дополнить до 100 некоторое целое число а (а - случайное число, меньшее 100). Ответ пользователя проверяется и комментируется.

1.
var k, l, m, n: integer;
begin
  readln(k,l,m,n);
  if (k+l+m+n mod 2 = 0) then
    writeln(поля одного цвета)
  else
    writeln(поля разных цветов)
end.

2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
  randomize();
  question := random(100);
  writeln(question);
  readln(answer);
  if (question+answer=100) then
    writeln(Not bad)
  else
    writeln(Oops. Right answer is , 100-question)
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.