7.1. Provjeri da li je upisani broj x neparan. Ako jeste ispiši NEPARAN.

Opis programa: Naredbom IF se izvodi provjera parnosti. Ako jex MOD 2 <>0 istitnit broj je neparan i ispisuje se tekst x je neparno.

 Listing programa:

PROGRAM P07111020;
VAR
  x: INTEGER;
begin
  Writeln('Za neparno x');
  Write('Broj ');
  Readln(x);
  IF x MOD 2 <> 0 THEN 
    Writeln('x= ', x, ' je neparno');
  READLN;
END.

Ispis na ekranu:

Index