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

Opis rješenja:

Listing programa:

PROGRAM p08312062;
VAR                { deklarisanje promjenljivih }
  I : INTEGER;     { cjelobrojne promjenljive }
  P : REAL;        { realne promjenljive }
BEGIN
  Writeln('Proizvod neparnih od 1 do 5');
  P:=1;         { pocetna vrijednost proizvoda }
  
  I:=1;                     { pocetna vrijednost kontrolne varijable }
  REPEAT                    { pocetak repeat petlje - radi/ponavljaj }
      IF I MOD 2<>0 THEN    { ako i nije djeljivo sa 2 - neparnoparno tada izvedi }
        P := P * I;         { proizvod p postaje stara vrijednost proizvoda pomnozena sa i }    
      i := i + 1;           { slijedeca vrijednost kontrolne varijable i }
  UNTIL i > 5;              { ponavljaj sve dok nebude i > 5 - kraj repeat petlje }
  
  Writeln('Proizvod neparnih od 1 do 5 = ',P:2:4);
  READLN;
END.

Ispis na ekranu:

Index