8.2.. Ispisati neparne prirodne brojeve od 1 do 17.
Listing programa:
PROGRAM p08211036;
USES
WinCrt;
VAR { deklarisanje promjenljivih }
i : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITELN('NEPARNI OD 1 DO 17');
i := 1; { pocetna vrijednost kontrolne varijable }
WHILE i <= 17 DO { dok je i <= 17 ponavljaj - pocetak petlje }
BEGIN
IF i MOD 2 <> 0 THEN { ako i nije djeljivo sa 2 - neparnoparno tada izvedi }
WRITE (I, ' '); { ispis izabranog }
i:= i + 1; { slijedeca vrijednost kontrolne varijable i }
END; { kraj while petlje }END.
END.
Ispis na ekranu:
Index
|