8.3.. Izračunati sumu prirodnih brojeva u intervalu od 1 do n koji su djeljivi sa a.
Listing programa:
REM p08312011
CLS
PRINT "Do broja: ";
INPUT N
PRINT "Dijeljivi sa: ";
INPUT a
S = 0
I=1
DO
IF I MOD a = 0 THEN
S = S + I
END IF
I = I + 1
LOOP UNTIL I > N
PRINT S
END
Ispis na ekranu:
Index
|