Множественный тип данных 1. Вычислить значения отношений или указать, что они ошибочны. а)[2]<>[2, 2, 2] б)['a', 'b']=['b', 'а'] в)[4, 5, 6]=[4..б] г)['с', 'Ь']=['С..'Ь'] д)[2, 3, 5, 7]<=[1..9] е)[3, 6..8]<=[2..7, 9] ж)[]<=[' 0'..' 9'] з)'q' In ['a'..'z'] и)66=[66] а) False б) True в) True г) False д) True е) False ж) True з)True и) Ошибка «несоответствие типов»
2. Вычислить значения выражений. а)[1..6] + [3..8] б) [1..6] * [3..8] в)[1..6]-[3..8] г) ['2', '4'] + ['1'..'5'] д)['2', '4'] * ['1'..'5'] е) ['2', '4'] - ['1'..'5'] ж)(['0'..'7'] + ['2'..'9']) * (['а'] + ['г']) з) [] * ['*'] а)[1..8] б)[3..6] в)[1, 2] г)['1'..'5'] д)['2, '4'] е) [] ж)[] з) []
3. Найдите все ошибки в следующем фрагменте программы: Type M=Set Of Char; Function F(a, b: M; x: char): M; Begin If a*b=0 Then a:=[x] Else If a<b Then a:= b+x Else If Ord(x) In a-b Then a:= a-[x..'>=']; F:= a+b; End; a*b=[] a:= b+[x] x In (a-b) a:= a-[x..'>=']-'>='