8.3.. Izračunati proizvod parnih prirodnih brojeva od 1 do 5.
Listing programa:
PROGRAM p08312061;
USES
WINCRT;
VAR
I:INTEGER;
P: REAL;
BEGIN
Writeln('Proizvod parnih od 1 do 5');
P:=1;
I:=1;
REPEAT
IF I MOD 2=0 THEN
P:=P*I
i := i + 1;
UNTIL i > 5;
Writeln('Proizvod parnih od 1 do 5',P:2:4);
END.
Ispis na ekranu:
Index
|