8.3.. Napisati program za ispis aritmeticke sredine brojeva od k do n djeljivih sa l.
Opis rješenja: Izdvajanje djeljivih sa l se izvodi logičkim izrazom i MOD l = 0 u intervalu od k do n.
Listing programa:
REM p08313016
CLS
PRINT "Od broja: ";
INPUY K
PRINT "Do broja: ";
INPUT N
PRINT "Broj za dijeljenja: ";
INPUT BR
S = 0
BR = 0
I=1
DO
IF I MOD L = 0 THEN
S = S + I
BR = BR + 1
ENDIF
I = I+1
LOOP UNTIL I > N
AS = S / BR
PRINT "ARITMETICKA SREDINA DJELJIVIH SA "; L; " OD "; K; " DO "; N; " je "; AS
END
Ispis na ekranu:
Index
|