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.
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!