8.1.. Izračunati proizvod neparnih prirodnih brojeva (nisu djeljivi sa 2) od 1 do 5.

Opis rješenja:

Listing programa:

PROGRAM P08112062;
USES
  WINCRT;
VAR
  I:INTEGER;  
  P: REAL;
BEGIN
  Writeln('Proizvod neparnih od 1 do 5');
  P:=1;
  
  FOR I:=1 TO 5 DO
    IF I MOD 2<>0 THEN
    P:=P*I	
	
  Writeln('Proizvod neparnih od 1 do 5 = ',P:2:4);
END.

Ispis na ekranu:

Index