9.1.. Napisati program sa procedurom za izračunavanje sume djeljivih sa l od k do n (koristiti REPEAT).

Opis programa: provjera djeljivosti se izvodi u REPEAT petlji naredbom IF i MOD l = 0 THEN

Listing programa:

PROGRAM p09111019;
{pro15, suma djeljive sa l od k do n  REPEAT}
USES
  WinCrt;
VAR
  k, n, l, s: Integer;

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

BEGIN       {MAIN}
  Writeln ('Prebrojati djeljive sa l  REPEAT');
  Write('k  n l ');
  Readln(k, n, l);
  sum_l;
  Writeln('Suma djeljivih sa ', l, ' =  ', s );
END.

Ispis na ekranu:
Prebrojati djeljive sa l  REPEAT
k  n l 1 9 2
Suma djeljivih sa 2 =  20

Index