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

В кодировке КОИ-8 каждый символ кодируется 8 битами. Петя
напечатал текст:
Клавиатура, мышь, монитор, сканер, микрофон – устройства ввода-
вывода информации.
Немного подумав, Петя удалил из списка название устройства вывода
информации, отредактировал общее название оставшихся устройств, а
также удалил лишние запятую и пробел. Каким стал при этом
информационный объем текста? Напишите в ответе целое количество
байт (единицы измерения указывать не нужно).

👇
Ответ:
Winstorm
Winstorm
09.03.2023

72

Объяснение: всего символов 72, 1 символ равен 8 бит. 72 * 8 = 576. в 1 байте 8 бит. что бы найти сколько байт в 576 бит нужно: 576:8= 72. ответ 72 байт.

4,6(13 оценок)
Открыть все ответы
Ответ:
Акинаки
Акинаки
09.03.2023
Const
  n = 50;

var
  a: array[1..n] of integer;
  i, min: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  min:=32767;
  for i := 1 to n do
  begin
    a[i] := Random(99)+1;
    Write(a[i]:3);
    if ((a[i] mod 2)<>0) and (min>a[i]) then min:=a[i]
  end;
  Writeln;
  Writeln('Минимальный нечетный элемент равен ',min)
end.

Тестовое решение:
Исходный массив
 24 19 87 17 11 98 74 11 57 42  9 23  3 90 62 61 53 55 63 93 22 50 82 97 26 39 43 26 46 52 13 94 26 98 87 95 43 69 24 41 56 78 22 45 53 45 59 57  3 64
Минимальный нечетный элемент равен 3
4,5(9 оценок)
Ответ:
Pantiik
Pantiik
09.03.2023
Я уже сделал на паскале
Ладно пусть будет...
var
a: array[1..10] of integer;
i,j,k,sum,d:integer;
h:real;
begin
d:=0;
    for i:=1 to 10 do
        for j:=1 to 5 do
            begin
                readln(a[j]);
                if j=5 then
                    begin
                    sum:=0;
                        for k:=1 to 5 do
                            sum:=sum+a[j];
                    h:=sum/5;
                    writeln(h:0:0); // Если нужно точное значение, поменяйте последний 0 на 2
                    if h<7 then inc(d)
                    end;
            end;
    write(d, ' учеников - имеют средний ниже среднего');
end.

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