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.