Thorwald
27.05.2023 02:59

Уровень А
Лента машины Тьюринга содержит последовательность символов "4".
На тьюринговую машину, заменяющую каждый второй знак "+"
написать программу для. Замена с правой стороны цепи
начинается. Q, автомат в состоянии, указанном в последовательности символов
показывает один. Программа в каждом случае, кроме таблицы-
опиши словами, как исполняется.

Уровень В
В восьмеричной системе счисления дано число п. Заданного числа п
1.создание машины Тьюринга. Q, автомат в состоянии
указывает одно число входного слова. Программа-каждый, кроме таблицы
описать словами, что выполняется машиной в случае.

Уровень С
дано натуральное число n > 1. Тью, уменьшающая заданное число п на 1-
необходимо сделать кольцевую машину, при этом в исходящем слове большое число
Не должно быть 0. Например, если входное слово "100", то выход
слово должно быть "99", а не "099".
показывает цифры. Программа маши в каждом случае, кроме таблицы-
опишите словами, как исполняется намен.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
bolshakovatanyoxd2gr
03.02.2020 19:23
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var m:=ReadInteger('число строк ');
  var n:=ReadInteger('число столбцов ');
  var a:array[,] of real; SetLength(a,m,n);
  Randomize;
  var p:=1.0;
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do begin
      a[i,j]:=89*Random+10;
      Write(a[i,j]:0:5,' ');
      if j mod 2=0 then p*=a[i,j]
      end;
    Writeln
    end;
  Writeln(p)
end.

Тестовое решение:
число строк  4
число столбцов  3
83.48215 49.40392 38.47974
79.95518 85.86098 19.45080
34.86908 65.25898 51.15671
96.59641 24.22868 42.34227
36449203938146.9
0,0(0 оценок)
Ответ:
Gjvjub000
03.02.2020 19:23
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var m:=ReadInteger('число строк ');
  var n:=ReadInteger('число столбцов ');
  var a:array[,] of real; SetLength(a,m,n);
  Randomize;
  var p:=1.0;
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do begin
      a[i,j]:=89*Random+10;
      Write(a[i,j]:0:5,' ');
      if j mod 2=0 then p*=a[i,j]
      end;
    Writeln
    end;
  Writeln(p)
end.

Тестовое решение:
число строк  4
число столбцов  3
83.48215 49.40392 38.47974
79.95518 85.86098 19.45080
34.86908 65.25898 51.15671
96.59641 24.22868 42.34227
36449203938146.9
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота