8.1.. Ispisati neparne prirodne brojeve od 1 do n.
Listing programa:
PROGRAM P08111047;
USES
WINCRT;
VAR
N,I:INTEGER;
BEGIN
WRITELN('Ispis neparnih brojeva od 1 do n');
Write('Do broja ');
Readln(N);
FOR I:= 1 TO N DO
IF I MOD 2 <> 0 THEN WRITELN ('I=',I);
END.
Ispis na ekranu:
Index
|