8.1.. Napisati program za prebrojavanje prirodnih brojeva do n djeljivih sa l.

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

Listing programa:

PROGRAM p08112075;
USES
  WinCrt;
VAR
  i,n,l,br:integer;
BEGIN
  WRITELN ('Prebroj djelive sa l od 1 do n');
  WRITE('Do broja  ');
  READLN( n );
  WRITE ('l ');
  READLN(l);
  br:=0;
  FOR i := 1 TO n DO
    IF i MOD l = 0 THEN
      br := br + 1;
  WRITELN('br ', br);
END.

Ispis na ekranu:

Index