Question

Atribuiti variabilei B valoarea TRUE daca numarul dat este impar in caz contrar afisati FALSE. in pascal

Answer 1

Program P31;
var b:integer; 
      x:boolean;
Begin
writeln('Introduceti numarul:');
readln(b);
x:=True;
if ((b mod (2))<>0) then writeln(x)                   
                                else writeln(not x);
End.