7.2.. Od tri broja naći recipročnu vrijednost najmanjeg a ako je min=0 ispisati 3.
Opis rješenja:
Listing programa:
REM naj07212003;
INPUT a, b, c
min = a
IF b < min THEN min = b
IF c < min THEN min = c
PRINT "Najmanji je:"; min
IF min = 0 THEN
PRINT "3"
ELSE r = 1 / min
PRINT r
END IF
END
Za objašnjenje:
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07212003.gif)
Index
|