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

1.световое табло состоит из лампочек , каждая из которых может находиться в 3 состояниях : выкл.,вкл. и мигает. какое наименьшее кол-во лампочек должно находиться , с которых можно сделать 50 сигналов? 2. в классе 32 ученика , на уроке физкультуры они построились в 8 ширенг , по 4 человека в каждой .какое кол-во информации несет сообщение , о том что петров вова находится в 5 ширенге?

👇
Ответ:
1252
1252
10.01.2021
Логорифм троичный из 50 = 4 лампочки.
3 бита, (столько нужно для того чтоб записать 1 ширенгу из 8)
4,6(68 оценок)
Открыть все ответы
Ответ:
nastiaalecko00
nastiaalecko00
10.01.2021
Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');
    
    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);
    
    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];
    
    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.
4,5(74 оценок)
Ответ:
temayurin2016
temayurin2016
10.01.2021
Var
  i, j, max, n, m: integer;
   ar: array[,]of integer;
 begin
  readln(n, m);
  setlength(ar, n, m);
  for i := 0 to n - 1 do
     for j := 0 to m - 1 do  ar[i, j] := random(0, 100);  
max := ar[0, 0];
  for i := 0 to n - 1 do
   begin
    for j := 0 to m - 1 do
     begin
      if(ar[i, j] > max) then max := ar[i, j];
    end;
   end;
  writeln('Максимальный элемент: ', max);
    for i := 0 to n - 1 do
     begin
      for j := 0 to m - 1 do write(ar[i, j]:4, ' ');
       writeln;
     end;
 end.
4,7(40 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ