Question

De la tastatură se introduce un număr X . Scrie un program Pascal realizînd o procedură care va afişa 0, dacă X este par şi 1-în caz contrar.

Answer 1

Răspuns:

program par;

var x:integer;

begin

    write('Dati numarul x = ');

    readln(x);

    if x mod 2 = 0 then {numarul este par}

       writeln('O')

    else

       writeln('1');

    readln;

end.

Explicație: