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

Внекоторой книге без картинок 100 страниц. на каждой странице в среднем по 20 строк, по 30 символов в каждой строке. вычислить информационный объём книги, если в ней использовано 80 видов различных символов.

👇
Ответ:
donczowakateri
donczowakateri
04.07.2022
80=2^i   => i=7 бит
I= 100*20*30*7=420000 бит =52500 байт =  51 Кбайт 
4,4(31 оценок)
Открыть все ответы
Ответ:
Molodoy186
Molodoy186
04.07.2022
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrGen(12,10,(i,j)->111+j-10*i); a.Println(5)
end.

Результат
  111  112  113  114  115  116  117  118  119  120
  101  102  103  104  105  106  107  108  109  110
   91   92   93   94   95   96   97   98   99  100
   81   82   83   84   85   86   87   88   89   90
   71   72   73   74   75   76   77   78   79   80
   61   62   63   64   65   66   67   68   69   70
   51   52   53   54   55   56   57   58   59   60
   41   42   43   44   45   46   47   48   49   50
   31   32   33   34   35   36   37   38   39   40
   21   22   23   24   25   26   27   28   29   30
   11   12   13   14   15   16   17   18   19   20
    1    2    3    4    5    6    7    8    9   10
4,5(86 оценок)
Ответ:
ROSTMIX
ROSTMIX
04.07.2022
1. Современное решение

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Range(1,10).Tabulate(x->1/(x*x-1/(1+x*x))).Println
end.

Результат
(1,2) (2,0.263157894736842) (3,0.112359550561798) (4,0.0627306273062731) (5,0.0400616332819723) (6,0.0277986476333584) (7,0.0204164965291956) (8,0.0156287569127194) (9,0.0123475380213823) (10,0.0100009901970492)

2. Школьное решение

var
  x:integer;
begin
  for x:=1 to 10 do
    Writeln(x,' ',1/(x*x-1/(1+x*x)))
end.

Результат
1 2
2 0.263157894736842
3 0.112359550561798
4 0.0627306273062731
5 0.0400616332819723
6 0.0277986476333584
7 0.0204164965291956
8 0.0156287569127194
9 0.0123475380213823
10 0.0100009901970492
4,4(3 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ