8.3.. Pomnoži parne brojeve od A do B.

Listing programa:

PROGRAM parni08211019;
USES WinCRT;
VAR
  i, a, b: Integer;
  p: Real;
BEGIN
  Write('a, b=');
  Readln(a, b);
  p:=1;
  i := a;
  REPEAT
    IF i MOD 2=0 THEN 
      p := p* i;
    i := i+1;
  UNTIL i > b;
  Writeln('Proizvod  parnih brojeva od ', a, ' do ', b, ' je ', p:4:0);
END.

Ispis na ekranu:

Index