№308. исключающее или напишите функцию function _xor (x, y: boolean): boolean (pascal) входные данные вводится 2 числа - x и y (x и y равны 0 или 1, 0 соответствует значению false, 1 соответствует значению true). выходные данные необходимо вывести 0 или 1 - значение функции от x и y. выодные 0 1 выходные 1 хелп

HoRMaX HoRMaX    2   23.08.2019 22:50    1

Ответы
Vrronika778 Vrronika778  05.10.2020 15:27
Function _Xor (x, y:boolean): boolean;
begin
_Xor:=not(x=y);
end;
var x,y:integer;
begin
write('x y: ');
readln(x,y);
if _Xor(x=0,y=0)
 then writeln(1) else writeln(0);
end.

Пример:
x y: 0 1
1
ПОКАЗАТЬ ОТВЕТЫ
GooodBaby GooodBaby  05.10.2020 15:27
//PascalABC.Net 3.2
function f_xor(x, y: integer):=(x+y) mod 2;

begin
write (f_xor(readinteger('x ='), readinteger('y =')));
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика