500 символов. Каков информационный вес каждого символа этого сообщения? Какова мощность алфавита, с кото- рого было записано это сообщение? 12. Для записи текста использовался 64-символьный алфавит. Какое количество информации в байтах содержат 3 страницы текста, если на каждой странице расположено 40 строк по 60 символов в строке? 13. Сообщение занимает 6 страниц по 40 строк, в каждой строке за- писано по 60 символов. Информационный объём всего сообще- ния равен 9000 байтам. Каков информационный вес одного сим- вола? Сколько символов в алфавите языка, на котором записано это сообщение? 14. Метеорологическая станция ведёт наблюдение за влажностью воздуха. Результатом одного измерения является целое число от 0 до 100 процентов, которое записывается цепочкой из нулей и единиц минимальной длины, одинаковой для каждого изме- рения. Станция сделала 8192 измерения. Определите информа- Точит

Объяснение:

5. Допишите предложения

А) Программное обеспечение – совокупность программ, .

Б) Виды программного обеспечения - .

В) Операционные системы устанавливают не только на компьютеры, но и

Const
   N = 7; // количество наименований товаров
Var
   A:array[1..N,1..3] of integer;
   i,k,S:integer;
Begin
For i:= 1 to N do
    Read(A[i,1],A[i,2],A[i,3]);
k:=0;
For i:= N downto 1 do
    if A[i,2] = 0 then k:=i;
if k > 0 then
   Begin
   Write('00 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 0 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 1 then k:=i;
if k > 0 then
   Begin
   Write('01 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 1 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 10 then k:=i;
if k > 0 then
   Begin
   Write('10 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 10 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
k:=0;
For i:= N downto 1 do
    if A[i,2] = 11 then k:=i;
if k > 0 then
   Begin
   Write('11 - ',A[k,1]*A[k,3]);
   S:=0;
   For i:= k+1 to N do
       if A[i,2] = 11 then
          Begin
          Write('+',A[i,1]*A[i,3]);
          S:=S+A[i,1]*A[i,3];
          End;
   if S <> 0 then Write('=',S+A[k,1]*A[k,3]);
   WriteLn;
   End;
End.

Пример работы программы:

17 1 2
3 0 5
7 1 4
8 11 9
95 0 3
31 10 44
5 1 6
00 - 15+285=300
01 - 34+28+30=92
10 - 1364
11 - 72

#include <iostream>

#include <math.h>

const double g = 9.08665;

int main() {

unsigned int h;

std::cout << "Enter height of tree :" ;

std::cin>> h;

if (std::cin.fail()) // если предыдущее извлечение оказалось неудачным,

       {

           std::cin.clear();

           std::cin.ignore(32767,'\n');

std::cout << "Please die";

return 2;

       }

if(h == 0) {

std::cout<<"You are stupid! Apple is on the earth\n";

return 1;

}

std::cout<<"Program is thinking, but you no!\n";

double t = sqrt(2 * h / g);

std::cout << "Time is " << t << "\n";

std::cout << "Goodbye asshole\n";

return 0;

}

Объяснение:

Надеюсь, тебе не поставят два за это

Замени мои матные выражения в "" и можешь сдавать