Question

elaborați un program Pascal care calculează dacă un număr este divizibil cu 2

Answer 1

program divizibilCu2;

var n: integer;

begin

 write('introdu numar intreg: ');

 read(n);

 if (n mod 2 =0) then writeln(' este divizibil cu 2')

 else writeln('nu este divizibil cu 2');

end