8.2.. Napisati program za prebrojavanje prirodnih brojeva od k do n djeljivih sa l.

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

Listing programa:

PROGRAM p08242075;
USES
  WinCrt;
VAR
  i,k,n,l,br:integer;
BEGIN
  WRITELN ('prebroj djelive sa l u intervalu k do n');
  WRITE('Od broja  ');
  READLN( k );
  WRITE('Do broja  ');
  READLN( n );
  WRITE ('l ');
  READLN(l);
  br:=0;
  i := k;
  WHILE i <= n DO
    BEGIN
      IF i MOD l=0 THEN
        br := br + 1;
      i := i + 1;
    END;
END.

Ispis na ekranu:

Index