7.2.. Napisati program za odredjivanje y po formuli:

Opis programa: Logički izraz sa više funkcija mora biti u zagradama (a MOD 2 = 0) AND (b MOD 3 = 0).

Listing programa:

PROGRAM P07211034;
USES
  WinCrt;
VAR                     { deklarisanje promjenljivih }
  a, b, y : INTEGER;    { cjelobrojne promjenljive } 
BEGIN
  WRITE('Brojevi  ');   { ulazne promjenljive }
  READLN( a, b );       { ulaz - ucitavanje promjenljivih }
  
  IF (a MOD 2 = 0) AND (b MOD 3 = 0) THEN   { ako je a parno b djeljivo sa 3 tada }
    y := a + b          { izraz1 - suma }
  ELSE                  { inace }
    y := a - b;         { izraz2 - razlika}
	
  WRITELN('a ', a, '  b ', b, '    y ', y );  { izlaz - ispis }
END.

Ispis na ekranu:

Index