8.2.. Ispisati prirodne brojeve od 1 do 9 koji su djeljivi sa 3.
Opis rješenja:
Listing programa:
PROGRAM p08211062;
{brojevi od 1 do 9 djeljivi sa 3}
USES
WinCrt;
VAR { deklarisanje promjenljivih }
i : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITELN('1 do 9');
i := 1; { pocetna vrijednost kontrolne varijable }
WHILE i <= 9 DO { dok je i <= 5 ponavljaj - pocetak petlje }
BEGIN
IF i MOD 3 = 0 THEN
Writeln('i = ', i); { ispis u petlji }
i := i + 1; { slijedeca vrijednost kontrolne varijable i }
END; { kraj while petlje }
END.
Ispis na ekranu:
Index
|