8.2.. 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 p08212083;
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
  i := a;
  WHILE i <= b DO
    BEGIN
      IF i MOD l = 0 THEN
        BEGIN
          p := p * i;
          br:=br+1;
        END;
      i := i+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