8.3.. 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 p08313016;
USES
  WinCrt;
VAR
  i,k,n,l,br:integer;
  asr,s:real;
BEGIN
  writeln ('as');
  write ('k n l ');
  readln(k,n,l);
  s:=0;
  br:=0;
  i := k;
    REPEAT
      IF i MOD l = 0 THEN
        BEGIN
          s:=s+i;
          br:=br+1;
        END;
      i := i + 1;
  UNTIL i>n;
  asr := s/br;
  writeln('as', asr);
END.

Ispis na ekranu:

Index