М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Сани56
Сани56
30.03.2021 07:53 •  Информатика

Ребят с задачами, с ++, заранее Напишите программу, которая во всех возможных последовательностях длиной пять, составленных из трёх различных букв находит цепочку с заданной позицией. На вход программы в первой строке подаётся набор из трёх различных заглавных латинских букв, в алфавитном порядке. Во второй строке вводится номер искомой цепочки символов. Программа должна вывести цепочку с этим номером, если считать, что все последовательности расположены в лексикографическом (алфавитном) порядке. Последовательности пронумерованы, начиная с 1.

Sample Input 1:

ABC
15
Sample Output 1:

AABBC
Sample Input 2:

XYZ
242
Sample Output 2:

Y
Дано поле 10x10 для игры в "Сапёр". Поле заполнено нулями. В некоторых клетках стоят девятки -- мины.
Напишите программу, которая в каждой, не занятой миной клетке, пишет число от 0 до 8 -- количество мин, которые расположены в смежных клетках.
Sample Input 1:

0 0 0 0 9 9 0 0 0 0
0 0 0 0 0 9 0 0 0 0
0 0 0 0 0 0 0 9 0 0
0 0 0 0 0 0 0 9 0 0
0 0 0 9 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 9 0 9
0 0 0 0 0 0 0 0 0 0
9 0 0 0 9 0 0 0 0 0
0 0 0 0 0 0 0 0 9 0
Sample Output 1:

0 0 0 1 9 9 2 0 0 0
0 0 0 1 3 9 3 1 1 0
0 0 0 0 1 1 3 9 2 0
0 0 1 1 1 0 2 9 2 0
0 0 1 9 1 0 1 1 1 0
0 0 1 1 1 0 1 1 2 1
0 0 0 0 0 0 1 9 2 9
1 1 0 1 1 1 1 1 2 1
9 1 0 1 9 1 0 1 1 1
1 1 0 1 1 1 0 1 9 1
Sample Input 2:

0 0 0 0 0 0 0 0 0 0
0 0 0 9 9 9 0 0 0 0
0 0 0 9 9 9 0 0 0 0
0 0 0 9 9 9 0 0 0 0
0 0 0 0 0 0 0 0 0 0
0 0 0 9 9 9 9 9 0 0
0 0 0 0 0 0 0 0 0 0
9 9 9 0 0 0 0 0 0 0
9 0 9 0 0 0 0 0 0 0
9 9 9 0 0 0 0 0 0 9
Sample Output 2:

0 0 1 2 3 2 1 0 0 0
0 0 2 9 9 9 2 0 0 0
0 0 3 9 9 9 3 0 0 0
0 0 2 9 9 9 2 0 0 0
0 0 2 4 6 5 4 2 1 0
0 0 1 9 9 9 9 9 1 0
2 3 3 3 3 3 3 2 1 0
9 9 9 2 0 0 0 0 0 0
9 8 9 3 0 0 0 0 1 1
9 9 9 2 0 0 0 0 1 9
Напишите программу, которая запрашивает две строки, представляющие собой двоичные числа, и выводит в первой строке большее из них, а во второй строке -- меньшее. Числа подаются на вход без ведущих нулей. Длина чисел -- не более 1000 разрядов.
Sample Input 1:

1001
1101
Sample Output 1:

1101
1001
Sample Input 2:

100
11
Sample Output 2:

100
11
Напишите программу, которая выводит все решения ребуса VOLVO+FIAT=MOTOR в лексикографическом порядке. Одинаковым буквам соответствуют одинаковые цифры. Разным буквам соответствуют разные цифры. Решения надо пронумеровать, отделяя номер от ответа знаком табуляции "\t".

👇
Открыть все ответы
Ответ:
alenashafeeva
alenashafeeva
30.03.2021
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var
  i,j,k,n:integer;
  a,b,c:array[,] of integer;
begin
  Write('Число строк (столбцов) матрицы: '); Read(n);
  SetLength(a,n,n);
  SetLength(b,n,n);
  SetLength(c,n,n);
  Randomize;
  Writeln('Матрица A');
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
      a[i,j]:=Random(90)+10;
      Write(a[i,j]:3)
      end;
    Writeln
  end;
  Writeln('Матрица B');
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
      b[i,j]:=Random(90)+10;
      Write(b[i,j]:3)
      end;
    Writeln
  end;
  // умножение и вывод
  Writeln('Матрица C');
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do begin
      c[i,j]:=0;
      for k:=0 to n-1 do c[i,j]:=c[i,j]+a[i,k]*b[k,j];
      Write(c[i,j]:6)
      end;
    Writeln
  end;
end.

Тестовое решение
Число строк (столбцов) матрицы: 5
Матрица A
 25 81 17 87 40
 36 79 25 98 66
 90 64 73 30 54
 75 12 92 48 84
 94 91 71 96 94
Матрица B
 38 96 54 10 24
 66 47 13 15 81
 87 33 35 11 19
 48 20 16 40 14
 34 94 91 97 64
Матрица C
 13311 12268  8030  9012 11262
 15705 16158 11420 12142 13334
 17271 19733 13641  9101 12607
 16806 19656 15838 12010 10568
 23559 26400 18834 16044 18336
4,5(80 оценок)
Ответ:
vinokurovbob
vinokurovbob
30.03.2021
//Pascal ABC.NET 3.1 сборка 1256

//Без ввода размерности

Const
 n=3;

 Var
 ma1,ma2,mar:array[1..n,1..n] of integer;
 i,j,z:integer;
begin
randomize;
 writeln('Matrix 1:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     ma1[i,j]:=random(10);
     write(ma1[i,j]:4);
    end;
   writeln;
  end;
  writeln('Matrix 2:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     ma2[i,j]:=random(10);
     write(ma2[i,j]:4);
    end;
   writeln;
  end;
writeln('Final matrix:');
 for i:=1 to n do
 begin
   for j:=1 to n do
   begin
     for z:=1 to n do
       mar[i,j]:=mar[i,j]+ma2[z,j]*ma1[i,z];
     write(mar[i,j]:4);
   end;
  writeln;
 end;
end.

//C вводом размерности

 Var
 ma1,ma2,mar:array[,] of integer;
 i,j,z,n:integer;
begin
randomize;
readln(n);
setlength(ma1,n,n);
setlength(ma2,n,n);
setlength(mar,n,n);
 writeln('Matrix 1:');
 for i:=0 to n-1 do
  begin
   for j:=0 to n-1 do
    begin
     ma1[i,j]:=random(10);
     write(ma1[i,j]:4);
    end;
   writeln;
  end;
  writeln('Matrix 2:');
 for i:=0 to n-1 do
  begin
   for j:=0 to n-1 do
    begin
     ma2[i,j]:=random(10);
     write(ma2[i,j]:4);
    end;
   writeln;
  end;
writeln('Final matrix:');
 for i:=0 to n-1 do
 begin
   for j:=0 to n-1 do
   begin
     for z:=0 to n-1 do
       mar[i,j]:=mar[i,j]+ma2[z,j]*ma1[i,z];
     write(mar[i,j]:4);
   end;
  writeln;
 end;
end.
4,6(3 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ