7.2.. Provjera vrijednosti za uslov x parno?
a) x = 2, y = 3 b) x = 3, y = 2 c) x = 4, y = 4
d) x = -2, y = -3 e) x = -3, y = 2 f) x = -4, y = -4

Opis rješenja:

Listing programa:

PROGRAM P07211026;
{Provjera vrijednosti za x parno i neparno}
USES
  WinCrt;
VAR                         { deklarisanje promjenljivih }
  x, y : REAL;              { realna promjenljiva }
BEGIN
  WRITE('Dva broja ');
  READLN( x, y );
  IF x MOD 2 = 0 THEN       { ako je broj paran, tada }
    BEGIN
      x := x - 2;           { broj paran  - x i y umanjuju se za 2 }
      y := x - 2;
	END
  ELSE                      { inace }
    BEGIN
      x := x + 2;           { broj neparan - x i y uvecavaju se za 2  }
      y := x + 2;
	END;
  Writeln('x= ', x, '  y= ', y);  { ispis }
END.

Ispis na ekranu:

Index