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

Opis rješenja:

Listing programa:

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

  Writeln('a = ', a, '  y = ', y );  { izlaz - ispis }
END.

Ispis na ekranu:

Index