8.1.. Ispisati prirodne brojeve od 1 do 17 koji su djeljivi sa 3.
Listing programa:
PROGRAM P08111037;
VAR { deklarisanje promjenljivih }
I : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITELN('DJELJIVI SA 3 OD 1 DO 17');
FOR I:=1 TO 17 DO { ponavljaj za i=1 do 17 - pocetak petlje }
IF I MOD 3=0 THEN { ako je i djeljivo sa 3 tada izvedi }
WRITE (I, ' '); { ispis izabranog }
READLN;
END.
Ispis na ekranu:
![](../../pascal_prir/081/081_izvedi/08111037.gif)
Index
|