7.1.. Učitati a, Ako je a djeljiv sa 7, Ispisati DJELJIV.
Opis rješenja: Prvo se sa tastature upisuju vrijednost (a). Provjera da li je broj (a) djeljiv sa 7 se izvodi sa logičkim izrazom a MOD 7 u naredbi IF. Ako je logički izraz istinit ispisuje se na ekranu DJELJIV SA 7, inače nema ispisa. Sa naredbom a MOD 7 se izračunava ostatak dijeljenja broja a sa 7. Ostatak dijeljenja je jednak 0 ako je broj a djeljiv sa 7. Logički izraz za provjeru djeljivosti (a MOD 7 = 0) je istinit ako je a djeljivo sa 7 i tada se na ekranu ispisuje DJELJIV SA 7. 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 7. Logički izraz u naredbi IF glasi a mod 7 = 0. Ako je logički izraz istinit ispisuje se DJELJIV SA 7.
Listing programa:
PROGRAM P07111031;
VAR
a: Integer;
BEGIN
Write('broj ');
Readln(a);
IF a MOD 7 = 0 THEN
Writeln('DJELJIV' );
READLN;
END.
Ispis na ekranu:
Index
|