8.3.. Napisati program za prebrojavanje neparnih brojeva od k do n.

Opis rješenja: Zadatak se rješava postavljanjem početne vrijednosti za brojač br=0; a naredba za uvečavanje brojača je (br=br+1). Logički izraz za provjeru parnosti je i MOD 2 = 1 (neparan broj). DO petlja je od k do n.

Listing programa:

REM p08342076 prebrojati neparne prirodne brojeve od k do n
CLS
PRINT "Od broja:"
INPUT k
PRINT "Do broja: ";
INPUT N
BR = 0
I = k
DO
  IF I MOD 2 <> 0 THEN
      BR = BR + 1
  ENDIF
    I = I + 1 
LOOP UNTIL I > N
PRINT "Neparni od"; k"; " do "; n; " = '; BR
END

Ispis na ekranu:

Index