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

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

Listing programa:

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

Ispis na ekranu:

Index