8.3.. Naći sumu brojeva u intervalu od a do b djeljivih sa 5 i koliko ih ima.

Opis rješenja:

Listing programa:

PROGRAM p08312078;
USES WinCRT;
VAR
  i,a,b,l,s, br :Integer;
BEGIN
  Write('a,b,l=');
  Readln(a,b,l);
  s := 0;
  i := a;
  REPEAT
    IF i mod 5 = 0 THEN 
      BEGIN
        s:=s+i;
        br := br + 1;
      END;
  UNTIL i > b;
  Writeln('Od ', a, ' do ', b, ' ima ', br, ' djeljivih sa ', l, '.  Njihova suma je ',  s);
END.

Ispis na ekranu:

Index