8.2.. Ispis prirodnih brojeva od 1 do n koji su djeljivi sa a.
Listing programa: Provjera djeljivosti sa a se izvodi logičkim izrazom i MOD a = 0 u naredbi IF unutar WHILE petlje.
PROGRAM p08211049;
{ispis prirodnih brojeva od 1 do n koji su djeljivi sa a.}
USES
WinCrt;
VAR { deklarisanje promjenljivih }
n, a, i : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITELN('1 do n djeljivi sa a');
WRITE('n ');
READLN(n);
WRITE('djeljivi sa ');
READLN(a);
i := 1; { pocetna vrijednost kontrolne varijable }
WHILE i <= n DO { dok je i <= 5 ponavljaj - pocetak petlje }
BEGIN
IF i MOD a = 0 THEN
Writeln('i = ', i); { ispis djeljivih sa a }
i := i + 1; { slijedeca vrijednost kontrolne varijable i }
END; { kraj while petlje }
END.
Ispis na ekranu:
Index
|