8.3.. Napisati program za prebrojavanje parnih brojeva do n.
Opis rješenja: Zadatak se rješava postavljanjem početnih vrijednosti za brojač je br=0; a naredba za uvečavanje brojača je (br=br+1). Logički izraz za provjeru parnosti je i MOD 2 = 0.
Listing programa:
REM p08312071 prebrojati parnih prirodne brojeve od 1 do n
CLS
PRINT "Do broja: ";
INPUT N
BR = 0
I = 1
DO
IF I MOD 2 = 0 THEN
BR = BR + 1
ENDIF
I = I + 1
LOOP UNTIL I > N
PRINT "Broj parnih brojeva do "; N; " je : " ; BR
END
II Verzija
REM p08312071_1 prebrojati parne prirodne brojeve od 1 do n
CLS
PRINT "Do broja: ";
INPUT N
BR = 0
I = 2
DO
BR = BR + 1
I = I + 2
LOOP UNTIL I > N
PRINT "Broj parnih brojeva do "; N; " je : " ; BR
END
Ispis na ekranu:
Index
|