Задание:
Построить машину тьюринга которая во входном слове все буквы И меняет на Е
Решение:
Var a: string; i: integer; begin readln (a); for i: =0 to length (a) do if (a[i]='и') then a[i]: ='е'; writeln (a); end. Это на Pascal'е=)
Знаете другой ответ?