Napisati program sa funkcijom za izracunavanje proizvoda neparnih brojeva od k do n.

Listing programa:

PROGRAM Proizvod_neparnih;
USES
  WinCrt;
VAR
  i, k, n: Integer;
  p : Real;
FUNCTION prnepar(k,n:Integer):Real;
VAR
  i: Integer;
  p: Real;
BEGIN
  p := 1;
  FOR i:= k TO n DO
    IF i MOD 2 <> 0 THEN
      p := p*i;
  prnepar := p;
END;

BEGIN
  writeln ('proizvod neparnih brojeva od k do n');
  write('k n ');
  readln(k, n);
  p := prnepar (k, n);
  writeln('proizvod neparanih = ', p );
END.

Index