7.2.. Napisati program za odredjivanje y po formuli:
.

Opis rješenja:

Listing programa:

PROGRAM P07211094;
VAR                       { deklarisanje promjenljivih }
  a, y : INTEGER;         { cjelobrojne promjenljive }
BEGIN
  WRITE('Broj  ');        { ulazne promjenljive }
  READLN( a );            { ulaz - ucitavanje promjenljive }
 
  IF a MOD 2 = 0 THEN     { ako je a parno }
      y := a + 2          { izraz1 }
  ELSE                    { inace }
      y := a - 3;         { izraz2 }

  Writeln(' a ', a, ' y ', y );
  READLN;
END.

Ispis na ekranu:

Index