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

5. статья, набранная на компьютере, содержит 128 страниц, на каждой странице 32 строки, в каждой строке 30 символов. определите информационный объём статьи (в килобайтах) в кодировке кои-8, в которой каждый символ кодируется 8 битами.

👇
Ответ:
skillsass
skillsass
03.04.2022

Общий вес текста/сообщения:

I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

K = 128 * 32 * 30 шт = 122880 шт

i = 8 бит

Вес текста I = K * i = 122880 * 8 бит = 983040.0 бит

983040.0 бит = 122880.0 байт = 120.0 Кбайт

4,7(36 оценок)
Открыть все ответы
Ответ:
ep1cook1e
ep1cook1e
03.04.2022
Var
  a,x:real;
begin
  Write('Введите через пробел x и a: ');
  Read(x,a);
  Writeln((6+x)/(3-a))
end.
 
Результат выполнения программы:
Введите через пробел x и a: 5.18 4.65
-6.77575757575757

var
  i,d,n,k,s:integer;
begin
  Write('Укажите количество чисел: '); Read(n);
  Writeln('Вводите числа: ');
  k:=0; s:=0;
  for i:=1 to n do
  begin
    Read(d);
    if (d mod 3)=0 then Inc(k)
    else s:=s+d
  end;
  Writeln('Количество кратных 3 равно ',k);
  Writeln('Сумма некратных 3 равна ',s)
end.

Тестовое решение:
Укажите количество чисел: 7
Вводите числа:
4 18 6 45 7 20 8
Количество кратных 3 равно 3
Сумма некратных 3 равна 39
4,4(2 оценок)
Ответ:
Const
  n=5;
var
  x:array[1..n, 1..n] of integer;
  i,j,k:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      x[i,j]:=Random(50)+1;
      Write(x[i,j]:4)
    end;
    Writeln
  end;
  k:=0; i:=2;
  while i<=n do begin
    for j:=1 to n do
      if x[i,j] mod 2=0 then Inc(k);
    i:=i+2
  end;
  Writeln('Количество четных элементов в четных строках равно ',k)
end.

Тестовое решение:
Исходный массив
   1  14  23  17  39
  27  37  28  28  21
  10   6   3  38  22
   1  31  27  50  42
  16  43  27  16  17
Количество четных элементов в четных строках равно 4
4,5(41 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ