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

На языке Паскаль логическое выражение для проверки того, что одно и только одно из чисел a, b и c является положительным, можно записать следующим образом:

pascalCopy code
function OneAndOnlyOnePositive(a, b, c: Integer): Boolean;
begin
  Result := (a > 0) xor (b > 0) xor (c > 0);
end;

В данном коде используется оператор xor (исключающее ИЛИ), который возвращает истину (True) только в том случае, если ровно одно из условий истинно. Если только одна из переменных a, b или c больше нуля, то функция вернет True, в противном случае - False.