Решите хотя бы некоторые задачи 1. В стакане 20 карандашей разного цвета. Первый попавшийся оказался жёлтым. Какое количество информации в этом сообщении?
2. В коробке 2 карамельных конфеты и 3 шоколадных. Сергей вытащил конфету. Сколько информации в этом сообщении?
3. Вычислите информационный объем следующего предложения:
Программа выдаёт сообщение об ошибке! (ответ дать в Кб).
4. Документ содержит 32 таблицы, в каждой – по 16 столбцов. Стало известно, что нужная информация находится в седьмом столбце в таблице № 6. Какое количество информации в этом сообщении?
5. Количество информации в текстовом блоке - 0,5 Кбайт. Сколько страниц потребуется для размещения текста, если на каждой странице по 50 символов?
6. Вы поселились в гостинице. На ресепшене сказали, что Ваш номер на 10 этаже. Известно, что это сообщение несёт 0,5 байта информации. Сколько этажей в гостинице?
7. В аптеке покупатель спросил: - «Аспирин есть?» ответ: - «Аспирин закончился три дня назад». Сколько информации в этом сообщении? (Использовать содержательный подход).
8. При угадывании целого числа в диапазоне от 1 до N было получено 1,5 байта информации. В каком диапазоне было загадано число?
9. Сколько полных страниц книги поместится в 1 МБ дискового пространства, если мощность алфавита – 64 символа а на странице 32 строки по 70 символов?
10. В лотерее на празднике было разыграно: 13 шоколадок, 7 значков, 8 игрушек и 2 бутылки шампанского. Каждый тянул бумажку с названием приза. Какое количество информации в сообщении о том, что Маша вытянула бутылку шампанского?

👇

Увидеть ответ

Ответ:

anastasiabojko5

12.10.2021

Эбвббабкбуббубубубубубк

4,5(51 оценок)

Открыть все ответы

Ответ:

MATVEI235

12.10.2021

Var
K:array[1..2,1..13] of integer;
i,j,ind,x,y:integer;
MAX:real;
function RAST(x1,x2,y1,y2:integer):real;
  begin
   RAST:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
MAX:=-2*sqr(-10-1);
randomize;
writeln('Исходные точки:');
for j:=1 to 13 do
begin
  writeln('Точка № ',j,', с координатами(X,Y)');
  for i:=1 to 2 do
  begin
  K[i,j]:=random(110) - 10;
  write(K[i,j],' ');
  end;
writeln;
end;
for i:=1 to 13 do
if RAST(0,K[1,i],0,K[2,i])>MAX
  then
begin
MAX:=RAST(0,K[1,i],0,K[2,i]);
x:=K[1,i];
y:=K[2,i];
ind:=i;
end;
writeln('Номер точки: ',ind,' Координаты: ',x,' ; ',y);
end.


7.4. описать массив из тридцати записей—точек на плоско- сти. заполнить его случайно выбранными коор

7.4. описать массив из тридцати записей—точек на плоско- сти. заполнить его случайно выбранными коор

4,4(83 оценок)

Ответ:

Vanea228

12.10.2021

// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
var n:=ReadInteger('n=');
if n<0 then Writeln(n,'! не определено: n<0')
else
    if n=0 then Writeln('0!=1')
    else begin
      var p:BigInteger:=1;
      for var i:=2 to n do p*=i;
      Writeln(n,'!=',p)
      end
end.

Тестовое решение:
n= 138
138!=691778647261948849222819828311491035886734385827028118707676848307166514238979223884785249055995983385450621636277440066920043595627074569065446040152660143904127838730788278294186615891819670506731208704000000000000000000000000000000000

4,4(79 оценок)

Это интересно:

Стиль-и-уход-за-собой

06.12.2022

7 шагов к переходу от темных волос к светлым: все, что вы должны знать, чтобы изменить свой цвет волос...

07.06.2020

Как перестать сомневаться: 10 простых шагов...

Питомцы-и-животные

04.01.2023

Как растить котят: основные правила и советы...

Мир-работы

31.01.2020