7.1.. Provjeriti da li je od dva upisana broja prvi djeljiv sa drugim. Ako nije ispisati NIJE 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 <> 0 u naredbi IF. Ako je logički izraz istinit ispisuje se na ekranu NIJE DJELJIV SA 5, inače nema ispisa. Sa naredbom a MOD 5 se izračunava ostatak dijeljenja broja a sa 5. Ostatak dijeljenja je nije 0 ako broj a nije djeljiv sa 5. Logički izraz za provjeru djeljivosti (a MOD 5 <> 0) je istinit ako je a nije djeljivo sa 5 i tada se na ekranu ispisuje NIJE 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 NIJE DJELJIV SA 5.
Listing programa:
PROGRAM P07111033;
VAR
a, b : Integer;
BEGIN
Write('1. broj ');
Readln(a);
Write('2. broj ');
Readln(b);
IF a MOD b <> 0 THEN
Writeln('NIJE DJELJIV' );
READLN;
END.
Ispis na ekranu:
Index
|