Измерение количества информации 3 - вариант 1. Переведите в баты. 15 Кб, 256 Кб, 2500 кб, 72 кб, 340 Мб, 7 Гб. 2. Переведите в килобайты. 7168 байт, 7680 байт, 75 776 байiт, 700000 байт, 2 Мб, 400 Мб, 5 Г6, 300 Гб, 2560 байт, 257 Мб, 30 Гб. 3. Переведите в мегабайты. 50331648 байт, 56320 K6, 90 Гб, 262 14400 байт, 460800 Кб, 12 Гб. 4. Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объем следующего высказывания Рене Декарта: Я мысло, следовательно, существую. 5. Для кодирования секретного сообщения используются 12 специальных символов. При этом символы кодируются одним и тем же минимально возможным количеством бит. Чему равен информационный объем сообщения длинной 256 символов? 6. Объем сообщения - 7, 5 Кбайт. Известно, что данное сообщение содержит 7680 символов. Какова мощность алфавита? 1. Сколько различных последовательностей длинной в 7 символов можно составить из цифр 0 и 1? 8. Определите количество информации в книге, набранной на компьютере. Книга содержит 1500 страниц. На каждой странице — 40 строк, в каждой строке - 60 символов. Запишите ответ в Мб. 9. Сколько дискет понадобится для хранения 86400000 байт информации?

Uses graphabc; begin   {горшок}   setpencolor(clbrown);   setbrushcolor(clbrown);   line(52, 280, 110, 452);   line(110, 452, 196, 452);   line(196, 452, 243, 280);   line(243, 280, 52, 280);   {зальём горшок цветом}   floodfill(120, 400, clbrown);   {стебли}   setpenwidth(5);   setpencolor(clgreen);   line(58, 129, 127, 277);   line(142, 56, 142, 280);   line(229, 123, 164, 278);   {лепестки цветов}   setpencolor(clpurple);   line(44, 101, 29, 70);   line(45, 98, 67, 68);   line(55, 95, 55, 64);   line(55, 95, 74, 73);   line(71, 99, 83, 81);   line(71, 110, 95, 109);   line(73, 116, 92, 123);   line(60, 122, 83, 135);   line(50, 132, 48, 145);   line(49, 132, 33, 143);   line(41, 123, 19, 133);   line(43, 115, 13, 124);   line(44, 109, 14, 108);   line(37, 103, 17, 94);   line(136, 50, 131, 64);   line(135, 46, 117, 67);   line(125, 48, 98, 62);   line(135, 38, 102, 37);   line(130, 30, 103, 22);   line(128, 22, 112, 7);   line(146, 12, 155, -6);   line(158, 14, 166, -7);   line(159, 28, 175, 12);   line(163, 40, 191, 47);   line(158, 47, 172, 58);   line(147, 49, 162, 68);   line(134, 19, 129, 6);   line(218, 91, 210, 78);   line(216, 91, 198, 80);   line(225, 83, 213, 60);   line(243, 88, 240, 62);   line(251, 89, 267, 74);   line(255, 106, 278, 110);   line(245, 116, 264, 132);   line(238, 118, 248, 142);   line(231, 125, 232, 141);   line(219, 112, 197, 129);   line(219, 112, 183, 108);   {середины цветков}   setpencolor(clyellow);   setbrushcolor(clyellow);   circle(53, 116, 16);   circle(142, 37, 17);   circle(231, 103, 20); end.

// PascalABC.NET 3.6.3

uses School;

function Divizors(n: integer): List<integer>;

begin

 var L := new List<integer>;

 L.Add(1);

 L.Add(n);

 if n > 3 then

   begin

   var k := 2;

   while (k * k <= n) and (k < 46341) do

   begin

     if n mod k = 0 then

     begin

       var t := n div k;

       L.Add(k);

       if k < t then L.Add(t)

       else break

     end;  

     Inc(k)

   end;

   L.Sort;

 end;

 Result := L

end;

begin

 // 1

 if ReadInteger.IsPrime then Println('YES')

 else Println('NO');

 // 2

 ReadInteger.Factorize.First.Println;

 // 3

 var a := Divizors(ReadInteger);

 Print(a.Count, a.Sum)

end.