Turbo Pascal

         

Turbo Pascal

1: . . . -.

-
2: TURBO-PASCAL

3:




Clrscr;


4:
( )
( ASCII).
- (X2) and (X=10)
If A=True then y:=1 else y:=1/x;


1, 2
: if then
5:


6:
7:

7: - 4
, .
8:

MaxMin.





9: STRUNG.

8: . . .
:
1.
-
3. ASCII