Var
A, B, C, D: integer;
f1, f2: Text;
begin
Assign(f1, 'input.txt');
Reset(f1);
Assign(f2, 'output.txt');
Rewrite(f2);
while not Eof(f1) do
begin
Readln(f1, A, B, C, D);
if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
else writeln(f2,'NO')
end;
Close(f1);
Close(f2)
end.
Для генерации такой матрицы, где строки/столбцы нумеруются на побочной диалонали, нужно знать условие, которому соответствует элемент побочной диалонали.
Aij - элемент побочной диагонали квадратной матрицы А тогда и только тогда, когда i = N - j, где N - размерность матрицы А.
Код на рисунке 1.
1. Видимо 2 круга никак не пересекающихся друг с другом, один для чет другой для нечет
2. Предикат : все четные числа состоят из множества всех чисел минут множество всех нечетных чисел
var a,b,c,d:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
write('d = ');
readln(d);
writeln('X = ',(a*a+b*b)-c+d);
if (a*a+b*b)-c+d>0 then writeln(a,' + ',b,' = ',a+b)
else writeln(c,' + ',d,' = ',c+d)
end.