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

Нам задали по инфе: нужно взять слово и изменить его на другое, при этом можно изменять только одну букву (не обязательно из 3 букв слово) дым-дом не подойдет нужно много последовательностей пример: бег-бог-бок-бак-мак-маг-шаги т.д слово должно существовать!

👇
Ответ:
varvarec
varvarec
11.05.2020

овечка свечка)) рожки ложки)) том сом ком лом дом дым)) боль моль соль роль ноль)) гора кора нора пора)) мак бак рак лак)) дочка точка бочка)) надеюсь как то

4,8(91 оценок)
Ответ:
Даньок8
Даньок8
11.05.2020

Бег-Бог-Бок-Бак-Мак-Маг-

4,5(83 оценок)
Открыть все ответы
Ответ:
nfyrb2014
nfyrb2014
11.05.2020
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,'x',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var q:=a.Cols.Select(x->x.First<x.Last).ToArray;
  var k:=q.Where(r->r).Count;
  Writeln('*** Результирующая матрица [',m,'x',k,'] ***');
  var b:=MatrFill(m,k,0);
  var l:=0;
  for var j:=0 to n-1 do
    if q[j] then begin
      for var i:=0 to m-1 do b[i,l]:=a[i,j];
      l+=1
      end;
  b.Println(4)
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5x8] ***
  15 -35 -11 -18  49 -32  31 -47
 -21 -46   7 -48   3  24 -48   5
  28 -46  36  -9  17 -32 -44 -10
 -16   7 -14  40  13  30  50 -28
  -8  35 -49  47 -31  30  18  20

*** Результирующая матрица [5x4] ***
 -35 -18 -32 -47
 -46 -48  24   5
 -46  -9 -32 -10
   7  40  30 -28
  35  47  30  20
4,4(64 оценок)
Ответ:
shevelevaalla
shevelevaalla
11.05.2020
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var N:=ArrRandom(50,-111,348); N.Println;
  Writeln('Произведение элементов, кратных 5, равно ',
    N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b));
  if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then
    Writeln('Нечетных элементов больше')
  else Writeln('Четных элементов больше')
end.

Пример
151 129 60 55 140 -61 180 221 -7 1 -6 118 80 215 -109 176 82 265 209 234 36 276 71 147 268 138 288 300 37 270 290 79 -88 183 197 -13 23 222 -106 137 76 180 240 287 -55 -7 48 111 222 -82
Произведение элементов, кратных 5, равно -21155254513747200000000000000
Четных элементов больше
4,4(48 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ