Машина тьюринга. решить. a={a, b,0,1}. определить, является ли слово p идентификатором (непустым словом, начинающимся с буквы). ответ: слово a (да) или пустое слово (нет).

Var a: array [0..3] of string;     i: integer; begin       a[0] : = 'a';       a[1] : = 'b';       a[2] : = '0';       a[3] : = '1';       for i : = 0 to 3 do           if ((length(a[i]) > 0) and (a[i][1] in ['a'..'z', 'a'..'z']))               then writeln(a[i], '=> yes') else writeln(a[i], '=> no'); end.вот, прошу вас: ))

1) чтобы точно вынуть черный, нужно вынуть 6 шаров, т.к. первые 5 могут оказаться белыми

2)аналогично, 4 шара

3)7 шаров

4)5 шаров