Question

Составить программу на языке Pascal, печатающую значение TRUE, если указанное высказывание является истинным и False в противном

случае.

1) среди чисел a,b,c есть хотя бы 1 пара взаимно противоположных чисел

Answer 1

var a, b, c: integer;

begin

  readln(a, b, c);

  if (a=-b)or(a=-c)or(b=-a)or(b=-c)or(c=-a)or(c=-b) then writeln('TRUE') else writeln('FALSE');

end.