Машина Тьюринга. Помогите пожалуйста решить. A=a,b,0,1. Найти, является ли слово P

Машина Тьюринга. Помогите пожалуйста решить. A=a,b,0,1. Определить, является ли слово P идентификатором (непустым словом, начинающимся с буквы). Ответ: слово a (да) или порожнее слово (нет).

Задать свой вопрос
1 ответ
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]) gt; 0) and (a[i][1] in ['a'..'z', 'A'..'Z']))
            then writeln(A[i], '=gt; Yes') else writeln(A[i], '=gt; No');
end.

Вот, прошу Вас:))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт