8.3.. Izračunati i ispisati sumu kvadrata prirodnih brojeva od k do n.

Opis programa: Po učitavanju broja n do kog se izvodi sabiranje postavlja se početna vrijednost sume s (0). Sa naredbom DO je formirana petlja koja mijenja vrijednosti kontrolne varijable i od jedan (1) do n izrazom (i = i + 1). Formiranje sume s je obezbjeđeno unutar ove petlje s = s + i * i.

Listing programa:

REM 08312005;
CLS
PRINT "Od broja: ";
INPUT k
PRINT "Do broja: ";
INPUT N
S = 0
I = k
DO
  IF I MOD 2 = 0 THEN
    S = S + I*I
  END IF
  I = I + 1
LOOP UNTIL I > N
PRINT "SUMA KVADRATA PRIRODNIH BROJEVA OD ";k;"DO"; N; " je "; S
END

Ispis na ekranu:

Index