7.1.. Ispisati znak upisanog broja prema izrazu:
         ! 1, x>=0
z = <
         ! 0, x<0

Opis rješenja:

Opis programa:

Listing programa:

1  REM 032002
10 PRINT " Broj ";
20 INPUT x
30 IF x >= 0 THEN z = 1 ELSE z = 0
40 PRINT "Broj = "; x, "znak = "; z
50 END

Index