7.2.. Napisati program za ispis tri polovine korijena broja (3/2 korijena broja) ako je moguće inače ispisati 'Nedefinisan'.
REM 07211001;
INPUT "Broj = "; x
IF x >= 0 THEN
y = (3 / 2) * SQR(x)
PRINT "Rezultat:"; y
ELSE
PRINT "Nedefinisan"
END IF
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211001.gif)
Index
|