Napisati program sa procedurom za prebrojavanje brojeva od k do n djelijivih sa l (koristiti REPEAT).

Listing programa:

PROGRAM Brojac;
VAR
  k, n, l, br: Integer;

PROCEDURE br_l;
VAR
  i : Integer;
BEGIN
  br := 0;
  i := k;
  REPEAT
    IF i MOD l = 0 THEN
      br := br + 1;
    i := i + 1;
  UNTIL i > n;
END;

BEGIN       {MAIN}
  Writeln ('Prebrojati djeljive sa l  REPEAT');
  Write('k n l ');
  Readln(k, n, l);
  br_l;
  Writeln('Broj djeljivih sa ', l, ' =  ', br );
  READLN;
END.

Ispis na ekranu:
Prebrojati djeljive sa l  REPEAT
k n l 1 9 3
Broj djeljivih sa 3 =  3

Index