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.

Answer 2

что значит ord? можно без него?

Answer 3

ord(True) = 1, ord(False) = 0, можно и без ord, но много писать, что-то вроде Write((a > 0) and (b<=0) and(c<=0) or...) и так далее

Answer 4

Может Вы тогда напишите перечень из слов синтаксиса, которые можно использовать, а какие нельзя? Как человеку удобно писать программу, так он и написал. Если бы Вы попросили написать программу одним путём, он бы написал тем. А так получайте ответ, который удобен автору.