ududufivuv
01.09.2020 23:38

Как правильно оформляется вычисляемое поле:

a) имя_поля; поле1; знак_операции; поле2;
б) имя_поля: [поле1]знак_операции[поле2]
в) поле1 [знак_операции] поле2=имя_поля
г) [имя_поля]: поле1 знак_операции [поле2]

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Валерия1704
19.06.2022 19:06

это 2

Program

   {

       static void Main(string[] args)

       {

           Random rand = new Random();

           Console.WriteLine("Введите размерность матрицы MxM :");

           int M = Convert.ToInt32(Console.ReadLine());

           int[,] matrix = new int[M, M];

           for (int j = 0; j < M; j++)

           {

               for (int m = 0; m < M; m++)

               {

                   matrix[j, m] = rand.Next(-10, 10);

                   Console.Write(matrix[j, m] + " ");

                   

               }

               Console.WriteLine();

               

0,0(0 оценок)
Ответ:
steep6
08.07.2021 21:50
{
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}

var
 sq : array[0..999] of array[0..9] of boolean;
 co : array[0..999] of integer;
 ar : array[1..10003] of 0..9;
  i,j: integer;
 x: integer;
 t : boolean;
 begin
 for i := 0 to 999 do
   begin
   for j := 0 to 9 do
   sq[i][j] := false;
   co[i] := 0;
   end;
 for i := 1 to 3 do
   ar[i] := 0;
 i := 3;
 t := true;
 {write('000');}
 while t do
   begin
   i := i + 1;
   x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
   if co[x] >= 10 then t := false
     else
     begin
     j := 1;
     while sq[x][j] do 
       j := (j + 1) mod 10;
     ar[i] := j;
     sq[x][j] := true;
     co[x] := co[x] + 1;
     {write(j)}
     end;
   end;
 {writeln;}
 writeln('Length: ',i - 1);

 {просто чтобы убедиться}
 for i := 0 to 999 do
   for j := 0 to 9 do
   sq[i][j] := false;

  t := true;
 j := 0;
 i := 1;
 while (i <= 10000) and t do
   begin
   x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
   if sq[x][ar[i+3]] then t := false
     else
     begin
     sq[x][ar[i+3]] := true;
     j := j + 1;
     end;
   i := i + 1
   end;
 if t and (j = 10000) then
   write('Confirmed')
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота