Задача №309. Голосование
Напишите "функцию голосования"
function Election (x, y, z:boolean): boolean
Входные данные
Вводится 3 числа - x, y и z (x, y и z равны 0 или 1, 0 соответствует значению false, 1 соответствует значению true).
Выходные данные
Необходимо вывести значение функции от x, y и z.
Program n1;var x,y,z: integer;function Election(x,y,z: integer ): boolean;beginif(x=0) and (y=0) then Election:=falseelsebeginElection:=true;if (x=0) and (z=0) then Election:=falseelse beginElection:=true;if (y=0) and (z=0) then Election:=falseelse Election:=true;end;end;end;beginreadln(x,y,z);if Election(x,y,z)=true thenwriteln(1) else writeln(0);end.