8.3.. Izračunati i ispisati sumu kvadrata prvih n prirodnih brojeva. Koristiti DO petlju.

Opis programa: Početna vrijednost sume je 0 (s = 0). Izraz za uvačavanje sume je s = s + i * i.

REM p08312003 suma kvadrata prvih N prirodnih brojeva
CLS
REM suma kvadrata parnih brojeva do N
PRINT "Do broja: ";
INPUT N
S = 0
I = 1
DO
  IF I MOD 2 = 0 THEN
    S = S + I*I
  END IF
  I = I + 1
LOOP UNTIL I > N
PRINT "SUMA KVADRATA PARNIH BROJEVA DO "; N; " je "; S
END

Ispis na ekranu:

Index