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

2. Статья, набранная на компьютере, содержит 8 страниц, на каждой странице 40 строк, в каждой строке 64 символа. Определите информационный объём статьи, напечатанной в алфавите мощностью 65536 символов (одно из представлений кодировки Unicode) ». 3. В кодировке КОИ-8 алфавит состоит из 256 символов. Определите количество символов в сообщении, если информационный объем сообщениями в этой кодировке равен 160 бит.

👇
Ответ:
TokstoyLev
TokstoyLev
03.03.2022

2 задание:

8 · 40 · 64 = 212·5.

Один символ кодируется 16 битами или двумя байтами, 210 байт составляют 1 килобайт, поэтому информационный объем статьи составляет 23 · 5 = 40 Кб.

3 задание:

кои-8 - 1 символ = 8 бит

160 бит / 8 бит симв = 20 симв

4,7(45 оценок)
Открыть все ответы
Ответ:
Perchyn0601
Perchyn0601
03.03.2022
// PascalABC.NET 3.2, сборка 1514 от 11.08.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введитие координаты точки');
  if (x<0) and (y>0) then Writeln('Точка лежит во II четверти')
  else Writeln('Точка не лежит во II четверти')
end.

Пример
Введитие координаты точки -4.6 7
Точка лежит во II четверти

begin
  var n:=ReadInteger('Введите двухзначное число');
  if n div 10+n mod 10>9 then Writeln('Сумма цифр больше девяти')
  else Writeln('Сумма цифр не больше девяти')
end.

Примеры
Введите двухзначное число 47
Сумма цифр больше девяти

Введите двухзначное число 81
Сумма цифр не больше девяти
4,6(95 оценок)
Ответ:
ekaterina123sve
ekaterina123sve
03.03.2022
Первая программа:

program p;

var
x, y: integer;

begin
  writeln('Введите x >> ');
  read(x);
  writeln('Введите y >> ');
  read(y);
  if (x<0) and (y>0) then
    begin
      writeln('Точка принадлежит второй координатной четверти');
    end
   else
    begin
      writeln('Точка не принадлежит второй координатной четверти');
    end
end.

Вторая:

program p2;

var
n, i, sum, j: integer;
arr: array[1..10] of integer;

begin
  writeln('Введите число n');
  read(n);
  while n>0 do
    begin
      inc(i);
      arr[i]:=n mod 10;
      n:=n div 10;
    end;
  for j:=1 to i do
    begin
      sum+=arr[j];
      //write(arr[j]);
    end;
  if sum>9 then3
    begin
      writeln('Сумма больше 9');
    end
  else
    begin
      writeln('Сумма меньше 9');
    end
end.
4,7(28 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ