7.1.. Učitati a, Ako je a djeljiv sa 5, Ispisati DJELJIV.

Opis rješenja: Prvo se sa tastature upisuju vrijednost (a). Provjera da li je broj (a) djeljiv sa 5 se izvodi sa logičkim izrazom a MOD 5 u naredbi IF. Ako je logički izraz istinit ispisuje se na ekranu DJELJIV SA 5, inače nema ispisa. Sa naredbom a MOD 5 se izračunava ostatak dijeljenja broja a sa 5. Ostatak dijeljenja je jednak 0 ako je broj a djeljiv sa 5. Logički izraz za provjeru djeljivosti (a MOD 5 = 0) je istinit ako je a djeljivo sa 5 i tada se na ekranu ispisuje DJELJIV SA 5. Inače za ostale slučajeve nema ispisa.

Opis programa: Poslije upisa vrijednosti varijable a sa tastature,  provjerava se da li je a djeljivo sa 5. Logički izraz u naredbi IF glasi a mod 5 = 0. Ako je logički izraz istinit ispisuje se DJELJIV SA 5.

 Listing programa:

PROGRAM P07111032;
USES
  WinCrt;
VAR
  a: INTEGER;
BEGIN
  Write('broj ');
  Readln(a);
  IF a MOD 5 = 0 THEN
    Writeln('DJELJIV' );
  READLN;
END.

Ispis na ekranu:

Index