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

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

👇
Ответ:

1)-

2)б

3)в

4)1д

    2а(не уверен)

    3е

    4б

    5в

    6г

    7ж

    8з(не уверен)

5)я не понял смысла задания

За правильность не ручаюсь.

4,7(36 оценок)
Открыть все ответы
Ответ:
bilainфом
bilainфом
25.08.2021
//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.
4,4(44 оценок)
Ответ:
6епррг
6епррг
25.08.2021
Var myInFile, myOutFile: text;
   ind: integer;
   currentString: string;
begin
   assign(myInFile, 'in.txt');
   reset(myInFile);
   assign(myOutFile, 'out.txt');
   rewrite(myOutFile);
   while (not EOF(myInFile)) do
   begin
      currentString := readln(myInFile);
      while (pos('red', currentString) > 0) do
      begin
         ind := pos(currentString, 'red');
         delete(currentString, ind, length('red'));
         insert('black', currentString, ind);
      end;
      while (pos('tree', currentString) > 0) do
      begin
         ind := pos(currentString, 'tree');
         delete(currentString, ind, length('tree'));
         insert('palms', currentString, ind);
      end;
   end;
   close(myInFile);
   close(myOutFile);
end.
4,6(20 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ