() . ʳ , , 0 256 (, , ). ' : var '_: set of _;
, :
( TRUE, ): '__1='__2;
: '__1<>'__2;
( TRUE, ): '__1<='__2;
:
in '_;
' ( , ):
'__1 + '__2;
( , ): '__1 - '__2;
; , : '__1*'__2;
: , ; (, s1:=[ ] - , s2:=[3..9,12] - 3 9, 12). , .
: , . . , in (, , , ). ֳ , .
, A Z. , .
1) ³ .
2) , . ( ) , .
:
- .
, , . a b, :
|
|
a:= a+b b:= a-b a:= a-b
- .
, :
a:=a+b-a*b b:=((a+b)-a)+(a-b) a:=((a+b)-a)+(a-b)
, , , ( ). , .
3) :
4) : litera - ; a, b - .
5) :
Program p8;
var a,b: set of char;
litera:char;
Begin
a:=[F,I,R,S,T]);
b:=[S,E,C,O,N,D];
a:=a+b-a*b;
b:=((a+b)-a)+(a-b);
a:=((a+b)-a)+(a-b);
write(set a = );
for litera:=A to Z do