7.1. Provjeriti da li je suma dva učitana broja parna. Ako jeste ispisati PARAN.

Opis programa: Naredbom IF se izvodi provjera parnosti. Ako je suma parna ispisuje se tekst PARAN.

 Listing programa:

PROGRAM P07111035;
VAR
  a, b, s : Integer;
BEGIN
  Write('1. broj ');
  Readln(a);

  Write('2. broj ');
  Readln(b);

  s := a + b;

  IF s MOD 2 = 0 THEN
    Writeln('PARAN' );
  READLN;
END.

Ispis na ekranu:

Index