7.2.. Učitati prirodan broj. Ako je neparan ispisati njegovu recipročnu vrijednost, a ako je paran ispisati kvadratni korijen njegovog sljedbenika:

Opis rješenja: Formula po kojoj se izvodi izračunavanje zavisi od parnosti - neparnosti učitanog broja.

CLS
INPUT "Unesi broj a"; a
IF a MOD 2 <> 0 THEN
  y = 1 / a
ELSE
  y = SQR(a + 1)
END IF
PRINT "Ulaz = "; a, "Rezultat = "; y
END

II varijanta
CLS
INPUT "Unesi broj a"; a
IF a / 2 = INT(a / 2) THEN
  y = SQR(a + 1)
ELSE
  y = 1 / a
END IF
PRINT "Ulaz = "; a, "Rezultat = "; y
END

Ispis na ekranu:

Index