Проверить истинность высказывания: «Ровно два из чисел A, B, C являются положительными»

Категория: Delphi/Pascal
2011-11-24 21:00:51

Даны три целых числа: A, B, C.

code: #pascal
Program Boolean15;
Var
A,B,C:Integer;
Begin
ReadLn(A,B,C);
WriteLn((((A > 0) And (B > 0)) And (C < 0)) Or
(((A > 0) And (C > 0)) And (B < 0)) Or 
(((B > 0) And (C > 0)) And (A < 0)));
{Умней решения что-то в голову не пришло...}
end.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, положительное число, М.Э.Абрамян, истинность высказывания