8.3.. Napisati program za ispis aritmetičke sredine parnih prirodnih brojeva do n.

Opis rješenja: Izdvajanje naparnih se izvodi logičkim izrazom i MOD 2 = 0 u intervalu od 1 do n.

Listing programa:

REM p08313015
CLS
PRINT "Do broja: ";
INPUT N
S = 0
BR = 0
I=1
DO
  IF I MOD 2 = 0 THEN
    S = S + I
    BR = BR + 1
  ENDIF
  I = I+1 
LOOP UNTIL I > N
AS = S / BR
PRINT "ARITMETICKA SREDINA PARNIH PRIRODNIH BROJEVA OD 1 DO "; N; " je "; AS
END

Ispis na ekranu:
 

Index