8.2.. Prebrojati neparne prirodne brojeve od 1 do 5.
Listing programa:
PROGRAM P08212087;
USES
WINCRT;
VAR
I,BR: INTEGER;
BEGIN
WRITELN('1 DO 5');
I:=1;
WHILE i <= 5 DO
BEGIN
IF I MOD 2<>0 THEN
BR:=BR+1;
i := i + 1;
END;
WRITELN ('BR=',BR);
END.
Ispis na ekranu:
Index
|