8.3.. Ispisati neparne prirodne brojeve od 1 do n.
Listing programa:
PROGRAM p08311047;
USES
WINCRT
VAR
N,I:INTEGER;
BEGIN
Write('Do broja ');
Readln(N);
I := 1;
REPEAT
IF I MOD 2 <> 0 THEN WRITELN ('I=',I);
I := I + 1;
UNTIL I > N;
END.
Ispis na ekranu:
Index
|