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;
USES
WinCrt;
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' );
END.
Ispis na ekranu:
![](../../pascal_prir/071/071_izvedi/07111035.gif)
Index
|