👤

In turbo pascal va rog dau fundiță

In Turbo Pascal Va Rog Dau Fundiță class=

Răspuns :

var

  n:integer;

begin

    writeln('Numarul:');

     read(n);

     if (n mod 2=0)  then

     writeln('Numarul este par');

    else

     writeln('Numarul nu este par');

  end.