Question

Se consideră un număr întreg x, scrieți un program Pascal folosind un subprogram care va afișa 0 dacă x este par și 1 dacă x este impar.

Answer 1

program par;

var

  n : integer;

function impar(x : integer) : integer;

begin

  impar := x and 1;

end;

begin

  readln(n);  

  writeln(impar(n));

end.