8.2..Napisati program za ispis parnih prirodnih brojeva od 1 do m.
Opis programa:
Listing programa:
PROGRAM p08211058;
{Ispisati parne od 1 do m}
USES
WinCrt;
VAR { deklarisanje promjenljivih }
i : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITELN('ispis parnih od 1 do m');
WRITE('m ');
READLN(m);
i := 1; { pocetna vrijednost kontrolne varijable }
WHILE i <= 9 DO { dok je i <= n ponavljaj - pocetak petlje }
BEGIN
IF i MOD 2 = 0 THEN { paran? }
Writeln('i = ', i); { ispis kontrolne varjiable }
i := i + 1; { kontrolna varijabla }
END;
END.
Ispis na ekranu:
Index
|