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