< >

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

Ответы

Ответ дал: iolandavalerypad353
0

var a, b: integer;

begin

 Read(a, b);

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

end.

Похожие вопросы
Русский язык
2 года назад
Спишите предложения,добавляя однородные члены. Составьте схемы предложений. 1) В реке ребята ловили рыбу: ... . 2) В лукошке лежали грибы: ... . 3) Он побывал в городах: ... . 4) В нашу школу
Русский язык
2 года назад
Голова морск... конька точь-в-точь как у сказочно... Конька-горбунка
Математика
2 года назад
От двух пристаней расстояние между которыми 494 км отправились одновременно в одном направлении катер и лодка. Скорость катера 35 км/ч , скорость лодки 9 км/ч. Через какое время катер догонит лодку?
Информатика
2 года назад
8. Если название файла содержит расширение bmp или gif, то в этом файле содержится...а) Программа Программа Изображение Текст​
Алгебра
8 лет назад
a4+a3 вынесите общий множетель за скобки
Математика
8 лет назад
Найдите значение выражения (3 3/5 - 3 1/5)*(- 5/3)-(-6)*2 П.с. / это знак дроби, а это * - умножение
Математика
9 лет назад
как темя лучами разбить плоскость на 4 части
Биология
9 лет назад
Что произойдет с пациентом, если во время операции на спинной мозг врач случайно перерезал: а) передний корешок б) задний корешок в) весь смешанный нерв, идущий к правой руке