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
  x, y : REAL;
BEGIN
  WRITE('Dva broja ');
  READLN( x, y );
  IF x MOD 2 = 0 THEN 
    BEGIN
      x := x - 2;
      y := x - 2;
	END
  ELSE
    BEGIN
      x := x + 2;
      y := x + 2;
	END;
  Writeln('x= ', x, '  y= ', y);
END.

Ispis na ekranu:

Index