Question

Проверить истинное высказывание "ровно одно из чисел A и B нечётное". Программа в Pascal

Answer 1

var a, b: integer;

begin

 Read(a, b);

 Write(Odd(a) xor Odd(b))

end.

Answer 2

Для проверки истинности высказывания "ровно одно из чисел A и B нечётное" в Pascal, вы можете написать следующий код:

pascalCopy code
program CheckOddNumbers;

var
  A, B: Integer;
  countOdd: Integer;

begin
  // Ввод чисел A и B
  Write('Введите число A: ');
  ReadLn(A);
  
  Write('Введите число B: ');
  ReadLn(B);

  // Инициализируем счетчик нечетных чисел
  countOdd := 0;

  // Проверяем, является ли число A нечетным
  if A mod 2 <> 0 then
    countOdd := countOdd + 1;
  
  // Проверяем, является ли число B нечетным
  if B mod 2 <> 0 then
    countOdd := countOdd + 1;

  // Проверяем истинность высказывания
  if countOdd = 1 then
    WriteLn('Высказывание "ровно одно из чисел A и B нечётное" истинно.')
  else
    WriteLn('Высказывание "ровно одно из чисел A и B нечётное" ложно.');

  ReadLn;
end.

Программа позволяет пользователю ввести числа A и B и затем проверяет, сколько из них являются нечетными. Если ровно одно из чисел нечетное, то высказывание считается истинным. В противном случае, оно считается ложным.