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

Выполните арифметические операции и проверьте правильность выполнения: 1)1110 в двоичной системе + 1001 в двоичной системе; 2)1110 в двоичной системе-1001 в двоичной системе; 3)1110 в двоичной системе + 9 в десятеричной системе; 4)1010 в двоичной системе - 3 в десятеричной системе; ( где написано в системе это значит в степени ну 1110 во второй степени)

👇
Ответ:
дэн247
дэн247
20.01.2020
1)1110(дв.) + 1001(дв.)=10111(дв.)
2)1110(дв.)-1001(дв.)=101 (дв.)
3)1110(дв.)+9(дес.)=1110(дв.)+1001(дв.)=10111(дв.)
4)1010(дв.)-3(дес.)=1010(дв.)-11(дв.)=111(дв.)
4,5(14 оценок)
Открыть все ответы
Ответ:
badboydenis
badboydenis
20.01.2020
Const  n=5;  m=6;
var  a: array[1..n,1..m]of integer;
 i,j:integer;
begin
       for i:=1 to n do 
         begin   writeln; 
           for j:=1 to m do   
             begin   
                a[i,j]:=random(14)-3;   
                write(a[i,j]:4);   
             end;  
        end;
writeln('Новый массив:');
    for i:=1 to n do 
        begin   writeln;
          for j:=1 to m do   
            begin   
              if (a[i,j]<3)and(a[i,j]<>0) then   
               if a[i,j]<0 then       
                 a[i,j]:=-round(exp(ln(-a[i,j])*3))   
               else       
                 a[i,j]:=round(exp(ln(a[i,j])*3));   
              write(a[i,j]:4);   
           end;  
       end;
end.
4,6(83 оценок)
Ответ:
harvey2
harvey2
20.01.2020
Const
  n = 7;

type
  Vector = array[1..n] of integer;

procedure SortByCount(a: Vector; kol: integer; var b: Vector);
{Сортировка подсчетом}
var
  i, j: integer;
  c: array[1..50] of integer;

begin
  for i := 1 to 50 do C[i] := 0;
  for j := 1 to kol do
    c[A[j]] := c[A[j]] + 1;
  for i := 2 to 50 do
    c[i] := c[i] + c[i - 1];
  for j := kol downto 1 do
  begin
    b[c[a[j]]] := a[j];
    c[a[j]] := c[a[j]] - 1
  end
end;

var
  a: Vector := (25, 1, 13, 42, 8, 6, 14);
  b: Vector;
  i: integer;

begin
  writeln('Исходный массив');
  for i := 1 to n do write(a[i]:4);
  writeln;
  SortByCount(a, n, b);
  writeln('Отсортированный массив');
  for i := 1 to n do write(b[i]:4);
end.

Тестовое решение:

Исходный массив
  25   1  13  42   8   6  14
Отсортированный массив
   1   6   8  13  14  25  42
4,8(35 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ