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

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

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

Question

Информатика

Федяня

30 сентября, 00:39

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

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

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

+1

Ответы (1)

Знаете ответ на вопрос?

Ефим · 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.