1. Поле шахматной доски определяется парой натуральных чисел, каждое из которых не...

Question

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

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

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

Answer 1

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.