8.1. Ispis parnih i neparnih brojeva od 1 do n (test parnosti i neparnosti).
Listing programa:
PROGRAM P08111008;
VAR { deklarisanje promjenljivih }
i, n : Integer; { cjelobrojne promjenljive }
BEGIN
Writeln('Parani i neparni brojevi');
Write('Do broja ');
Readln(n);
FOR i := 1 TO n DO { ponavljaj za i=1 do 5 - pocetak for petlje }
IF i MOD 2 = 0 THEN { ako je i djeljivo sa 2 - parnoparno tada izvedi }
Writeln(i, ' je paran ') { ispis izabranog }
ELSE { inace }
Writeln(i,' je neparan ') ; { ispis izabranog }
READLN;
END.
Ispis na ekranu:
![](../../pascal_prir/081/081_izvedi/08111008.gif)
Index
|