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

Вариант 1
1. Переведите в байты:
16000бит=байтов
2048бита=байтов
2. Переведите в биты:
20байтов=бит
600байтов=бит
1,5 Кб=бит
2Гб=бит
3. Переведите в килобайты:
2048000бит=Кб
10240байтов=Кб
4. Расположите в порядке возрастания
123 бит, 4 Кбайт, 1024 байт, 1200 бит, 0,5 Гбайт, 8 бит
5. Объем сообщения, содержащего 1024 символа, составил 1/512 часть Мбайта. Определить мощность алфавита
6. Сообщение занимает 3 страницы по 25 строк. В каждой стро¬ке записано по 60 символов. Сколько символов в использо-ванном алфавите, если все сообщение содержит 1125 байтов?

👇
Ответ:
mirann2hsjb
mirann2hsjb
07.12.2021

1.

Для перевода из битов в байты нужно разделить количество битов на 8

16000бит / 8 = 2000 байтов

2048бита / 8= 256 байтов

2.

Для перевода из байт в бит нужно умножить количество байтов на 8

20 байтов * 8 = 160 бит

600 байтов= 4800 бит

1,5 Кб  * 1024 * 8 = 12288 бит

P.S. СКОРО ДОПОЛНЮ ОТВЕТ

4,4(98 оценок)
Открыть все ответы
Ответ:
AnnaGlyuza0436
AnnaGlyuza0436
07.12.2021
Программа №1.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, h, s:real;
begin
   writeln('Enter a, b and h');
   readln(a, b, h);
      s:=(0.5*(a+b))*h;
   writeln('Area of the trapezoid=', s);
   readln;
end.

Программа №2.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, s:integer;
begin
   writeln('Enter the price and quantity');
   readln(a, b);
      s:=a*b;
   writeln('Cost of purchase=', s);
   readln;
end.

Программа №3.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, w:real;
begin
   writeln('Enter the speed and time');
   readln(a, b);
      w:=a*b;
   writeln('Way=', w);
   readln;
end.


Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы.
Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).
4,4(65 оценок)
Ответ:
Зайчонок512
Зайчонок512
07.12.2021
Var
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a); writeln('Сколько вы хотите купить ткани?(в метрах квадратных)'); readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.

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