8.3.. Izračunati sumu prirodnih brojeva u intervalu od 1 do n koji su deljivi sa 7 i sa 3

Tekstualni algoritam:

1. učitati do kog broja se izvodi sabiranje (n)
2. postaviti početnu vrijednost sume (i = 1)
3. postaviti početnu vrijednost kontrolne varijable i (s = 0)
4. sve dok jeI > n radi
   ako je i djeljivo sa 7 i 3 ((i MOD 7 = 0) AND (i MOD 3 = 0) ) tada formirati novu vrijednost sume(s=s+i)
5. ispisati izračunatu vrijednost sume (PRINT "'Suma=" ;s)

Listing programa:

REM p08312012;
CLS
PRINT "Do broja: ";
INPUT N
S = 0
I = 1
DO
  IF ((I MOD 7 = 0) AND (I MOD 3 = 0)) THEN
    S = S + I
  END IF
  I = I + 1 
LOOP UNTIL I > N
PRINT "SUMA PRIRODNIH BROJEVA DJELJIVIH SA 7 I SA 3 DO "; N; " je "; S
END

Ispis na ekranu:

Index