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

Opis rješenja:

Listing programa:

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

Ispis na ekranu:

Index