8.2.. Izračunati aritmetičku sredinu od prvih 5 prirodnih brojeva koji nisu djeljivi sa 3.

Opis rješenja:

Listing programa:

PROGRAM p08213036;
{Aritmeticka sredina od 1 do 5 djeljivih sa 3}
USES
  WINCRT;
VAR                { deklarisanje promjenljivih }
  i, br, s : Integer;    { cjelobrojne promjenljive }
  asr : Real;            { realne promjenljive }
BEGIN
  Writeln('Izracunati aritmeticku sredinu od 1 do 5 koji su djeljivi sa 3');
  s := 0;        { pocetna vrijednost sume }
  br := 0;       { pocetna vrijednost brojaca }
  
  i := 1;              { pocetna vrijednost kontrolne varijable }
  WHILE i <= 5 DO      { dok je i <= 5 ponavljaj - pocetak petlje }
    BEGIN
      IF i MOD 3 <> 0 THEN
        BEGIN
          s := s + i;         { nova vrijednost kumulativne sume }
          br := br + 1;       { nova vrijednost brojaca }
        END;
      i := i + 1;      { slijedeca vrijednost kontrolne varijable i }
    END;               { kraj while petlje }
    
  asr := s/br;         { aritmeticka sredina je kolicnik sume i brojaca s/br }
  Writeln('Aritmeticka sredina od 1 do 5 djeljivih sa 3 = ', ars);    {do broja}
END.

Ispis na ekranu:
 

Index