8.2.. Izračunati sumu prirodnih brojeva u intervalu od k do n koji su djeljivi sa 7.

Listing programa:

PROGRAM P08212031;
VAR                  { deklarisanje promjenljivih }
  I,S,K,N: INTEGER;        { cjelobrojne promjenljive }
BEGIN
  Writeln('Suma djeljivih sa 7 od k do n');
  Write('Od broja ');
  Readln(K);
  Write('Do broja ');
  Readln(N);
  S := 0;      { pocetna vrijednost sume }
  
  I :=  K;                  { pocetna vrijednost kontrolne varijable }
  WHILE I <= N DO           { dok je i <= n ponavljaj - pocetak petlje }
    BEGIN
      IF I MOD 7 = 0 THEN   { ako je i djeljivo sa 7 tada izvedi }
        S := S + I;         { suma s postaje stara vrijednost sume uvecana za vrijednost i } 	
      I := I + 1;           { slijedeca vrijednost kontrolne varijable i }
    END;                    { kraj while petlje }
	
  Writeln('Suma djeljivih sa 7 od k do n', S);
  READLN;
END.

Ispis na ekranu:

Index