Boolean19. Проверить истинность высказывания: «Среди трех данных целых чисел есть хотя бы одна пара взаимно противоположных».
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 |
program Boolean19; var A,B,C: Integer; begin Write('Введите число A: '); Readln(A); Write('Введите число B: '); Readln(B); Write('Введите число C: '); Readln(C); Writeln((A=(-1)*B) or (B=(-1)*C) or (C=(-1)*A)); end. |
Другие задачи из раздела Boolean можно посмотреть здесь.
да что за мания так все усложнять?)))
read(a,b,c);
writeln( (a+b=0)xor(a+c=0)xor(b+c=0));
сам еще сморозил)) : исходя из условия не xor, а or
угу 🙂
если не усложнять, то:
но подумал, что такая запись будет сложна для неподготовленного человека. И расписал. 🙂
Ну и опять же если xor, то будет верно если только одна запись взаимно противоположна, а по условию хотя бы одна.