7.1. Provjeri da li je upisani broj x neparan. Ako jeste ispiši NEPARAN.
Opis programa:
Naredbom IF se izvodi provjera parnosti. Ako jex MOD 2 <>0 istitnit broj je neparan i ispisuje se tekst x je neparno.
Listing programa:
PROGRAM P07111020;
VAR
x: INTEGER;
begin
Writeln('Za neparno x');
Write('Broj ');
Readln(x);
IF x MOD 2 <> 0 THEN
Writeln('x= ', x, ' je neparno');
READLN;
END.
Ispis na ekranu:
Index
|