8.2.. Izračunati proizvod neparnih prirodnih brojeva od 1 do 9.

Opis rješenja:

Listing programa:

PROGRAM p08211064;
{ Proizvod neparnih od 1 do 9 }
USES
  WinCrt;
VAR
  i : INTEGER;
  p : REAL;

BEGIN
  Writeln( 'Proizvod neparnih od 1 do 9');

   i := 0;       { pocetna vrijednost kontrolne varijable i}
   p := 1;       { pocetna vrijednost proizvoda }

   WHILE i <= 9 DO       { dok je i <= 9 ponavljaj - pocetak petlje }
     BEGIN
       IF i MOD 2 <> 0 THEN
         p := p * i;    { nova vrijeddnost proizvoda }
       i := i + 1; ;    { nova vrijeddnost kontrolne varijable i}
     END;
  Writeln('Proizvod neparnih od 1 do 9 = ', p );
END.

Ispis na ekranu:
 

Index