Question

Fie n un numar natural sa se verifice daca este par si sa se scrie un mesaj corespunzator ... Program pascal rapid

Answer 1

var n:word;
Begin
writeln('Introduceti numarul:');
readln(n);
if (n mod (2)=0) then writeln ('Numarul este par;')                 
                           else writeln('Numarul este impar;');
End.