Question

Запиши на Паскале логическое выражение:

одно и только одно из чисел a, b и c - положительное

Answer 1

var

 a, b, c: real;

begin

 Read(a, b, c);

 Write((ord(a > 0) + ord(b > 0) + ord(c > 0)) = 1)

end.