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

1)как определяется единица измерения количества информации в рамках содержательного подхода? 2)сколько битов информации несет сообщение о том, что из колоды в 32 карты достали " пик"? 3)придумайте несколько ситуаций,при которых сообщение нечет 1 бит информации? 4)в каких случаях и по какой формуле можно вычислить количество информации,содержащейся в сообщении, используя содержательный доход?

👇
Ответ:
gidra2281337
gidra2281337
04.02.2022
2) N=2^i 32=2^5 ответ 5 3) В класс назначен новый учитель. На вопрос "женщина это или мужчина" нам ответили :"мужчина". ответ несёт 1 бит информации 4) по формуле N=2^i Где N количество возможных исходов события И i количество информации в сообщении об одном исходе события
4,7(54 оценок)
Открыть все ответы
Ответ:
Nanaw45
Nanaw45
04.02.2022
FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.
4,8(49 оценок)
Ответ:
0000444455665
0000444455665
04.02.2022

1) uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
end;
writeln('Число ',a,' в степени ',n,' равно ',s);
end.

2)uses crt;
var a,s:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
for i:=1 to n do begin
s:=s*a;
writeln(a,' в степени ',i,' равно ',s);
end;
end.

3)uses crt;
var a,s,p:real;
i,n:integer;
begin
write('Введите число А: ');
readln(a);
write('Введите число N: ');
readln(n);
s:=1;
p:=1;
write('1 + ');
for i:=1 to n do begin
s:=s*a;
p:=p+s;
if i<n then write(s,' + ');
if i=n then write(s,' = ');
end;
writeln(p);
end.

4,4(54 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ