8.1.. 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 WHILE 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:

PROGRAM 08312005;
CLS
PRINT "Od broja: ";
INPUT k
PRINT "Do broja: ";
INPUT N
S = 0
FOR i = k TO N
  IF I MOD 2 = 0 THEN
    S = S + I*I
  END IF
NEXT i
PRINT "SUMA KVADRATA PRIRODNIH BROJEVA OD ";k;"DO"; N; " je "; S
END

Ispis na ekranu:

Index