8.1.. Napisati program da nađe proizvod prirodnih brojeva od a do b djeljivih sa l i koliko ih ima.

Opis rješenja: Izdvajanje djeljivih sa 5 se izvodi logičkim izrazom i MOD l = 0 u intervalu od a do b.

Listing programa:

PROGRAM p08112083;
USES
  WinCrt;
VAR
  i, a, b, l, br : INTEGER;
  p: REAL;
BEGIN
  WRITELN ('Prebroj i pomnozi djelive sa l');
  WRITE ('Od broja ');
  READLN (a);
  WRITE ('Do broja ');
  READLN (b);
  WRITE('Djelilac ');
  READLN(l);
  br:=0;
  p := 1;
  FOR i := a TO b DO
    IF i MOD l = 0 THEN
      BEGIN
        p := p * i;
        br:=br+1;
      END;
  WRITELN('Proizvod prirodnih brojeva djeljivih sa ', l ,' od ', a ,' do ' , b, ' je ', p);
  WRITELN('Djeljivih sa ', l ,' ima ', br);
END.

Ispis na ekranu:

Index