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