4 года назад

Алфавит племени мульти состоит из 32 букв Какое количество информации несёт одна буква этого алфавита

Знания

Информатика

1 ответ:

Elenakr [14]4 года назад

0 0

по формуле N=2 в степени i

32=2 в степени i

32=2 в пятой степени следовательно 2 в пятой степени=2 в степени i

откуда i=5 бит

Ответ: 1 буква алфавита несет 5 бит

Читайте также

Написать программу на языке паскаль при помощи подпрограммы функции которая вычисляет минимальное из чисел a b c d

ANZA99 [14]

PascalABC.NET

type mass = array [1..4] of integer;

var a : mass;
i : integer;

function min(c : mass) : integer;
var
i,minim : integer;
begin
minim := c[1];
for i := 2 to 4 do
if c[i] < minim then
minim := c[i];
result := minim;
end;

begin
for i := 1 to 4 do
readln (a[i]);
writeln ('min = ',min(a));<span>
end.

Как параметр я использовал массив из четырех элементов. Можно использовать просто переменные и через IF все прописать</span>

0 0

4 года назад

Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы? a:=2; for i:=0 to 4 do begin a:=a+i e

Elleo [21]

Ответ 12
======================

0 0

4 года назад

Составьте программу с использованием процедуры,которая вычислит следующее значение:если x<1 то y=x+3;если x>1 то y=x-3;на

siris

Program anton4nk;

uses crt;

var x, y : real;

begin

writeln('Если x<1, Выполняется y = x+3 | Если x>1, Выполняется y = x-3');

writeln;

write('Введите число x: ');

readln(x);

if x<1 then

y:=x+3

else

y:=x-3;

writeln('Результат: ', y);

end.

0 0

4 года назад

Использовать список при следующем его описании:Type AdrCel=^Element;Element=recordInfo:integer;Next:AdrCel;End;Составить процеду

Константинов Серг... [145K]

type
adrcel=^Element;
Element=record
info:integer;
next:adrcel;
end;
var
start,last,new_el:adrcel;
i:integer;

0 0

4 года назад

Написать программу Заполнить массив из 15 элементов случайными числами (-50;50)Посчитать сумму всех элементов массива Посчитать

777KaY777

Если нужно на Паскале:

program test;
var mas : array[1..15] of integer;
sum : integer;
otr : integer;
i: integer;

begin
sum := 0;
otr := 0;
randomize;
for i:=1 to 15 do
begin
mas[i] = -50 + random(100);
sum := sum + mas[i];
if mas[i] < 0
then otr := otr + 1;
end;
writeln ('Сумма: ' + sum);
writeln ('Количество отрицательных элементов: ' + otr);
end.

0 0

4 года назад