Уровень А
Лента машины Тьюринга содержит последовательность символов "4".
На тьюринговую машину, заменяющую каждый второй знак "+"
написать программу для. Замена с правой стороны цепи
начинается. Q, автомат в состоянии, указанном в последовательности символов
показывает один. Программа в каждом случае, кроме таблицы-
опиши словами, как исполняется.
Уровень В
В восьмеричной системе счисления дано число п. Заданного числа п
1.создание машины Тьюринга. Q, автомат в состоянии
указывает одно число входного слова. Программа-каждый, кроме таблицы
описать словами, что выполняется машиной в случае.
Уровень С
дано натуральное число n > 1. Тью, уменьшающая заданное число п на 1-
необходимо сделать кольцевую машину, при этом в исходящем слове большое число
Не должно быть 0. Например, если входное слово "100", то выход
слово должно быть "99", а не "099".
показывает цифры. Программа маши в каждом случае, кроме таблицы-
опишите словами, как исполняется намен.
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;
procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;
begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.