8.1.. Napisati program za ispis aritmeticke sredine 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 p08113016;
USES
  WinCrt;
VAR                                 { deklarisanje promjenljivih }
  i, s, k, n, l, br : Integer;      { cjelobrojne promjenljive }
  asr : Real;                       { realne promjenljive }
BEGIN
  Writeln('Artimeticka sredina djeljivih sa l od k do n');
  write ('k n l ');
  readln(k,n,l);
  s := 0;           { pocetna vrijednost sume }
  br := 0;          { pocetna vrijednost brojaca }
  
  FOR i := k TO n DO     { ponavljaj za i=k do n - pocetak for petlje }
    IF i MOD l = 0 THEN  { ako je i djeljivo sa l tada izvedi }
      BEGIN
        s := s + i;      { suma s postaje stara vrijednost sume uvecana za vrijednost i }
        br := br + 1;    { brojac br postaje stara vrijednost brojaca uvecana za 1 }
      END;               { kraj if }
      
  asr := s/br;            { aritmeticka sredina je kolicnik sume i brojaca s/br }
  writeln('Artimeticka sredina djeljivih sa l od k do n = ', asr);
END.

Ispis na ekranu:

Index