Все категории

3 года назад

СРОЧНО Алфавит языка состоит из 16 знаков. Сколько информации несет сообщение длиной 32 символа?

Знания

Информатика

1 ответ:

Татьяна Свиридова3 года назад

0 0

16 = $4^{2}$
следовательно 4 бита на символ
4*32 =128 бит(информации несёт)

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

Дано четырехзначное число. Определите, является ли его десятичная запись симметричной. Если число симметричное, то выведите 1, и

listvinnica [7]

Var s:string;
begin
readln(s);
writeln(1+2*StrToInt(s[1])+StrToInt(s[2])-StrToInt(s[3])-<span>2*</span>StrToInt(s[4]));
end.

0 0

4 года назад

Прочитать ещё 2 ответа

В каком году был выпущен текстовый редактор Word ? А) 1999 В )2000 С 1983 Р 1939

Savalin2010 [1]

1983 год
_________________________________________

0 0

4 года назад

Написать программу вывода на экран всех простых чисел до 200

maxser1609 [37]

<span> program PrimesToN;
var i, k, n, count: word;
begin readln(n); for k := 1 to n do begin count := 0; for i := 1 to k do begin if k mod i = 0 then inc(count) end; if count = 2 then write(k, ' ') end end. </span>

0 0

4 года назад

Как называют адреса, которые используют в формулах электронных таблиц? A) ячейки B) диапазон C) ссылки D) модели СРОЧНО!!!!!

Дарья4587 [50]

Правильный ответ:Диапазон

удачи!

0 0

1 год назад

Прочитать ещё 2 ответа

Перевод программы с Visual Basic на Pascal!!! Sub dat() Dim vData As String On Error GoTo metka vData = InputBox("Введите дату п

Телятников Юрий С...

<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

try

var vData := ReadlnString('Введите дату по образцу дд.мм.гг:');

if vData = '' then Exit;

var s := vData.MatchValue('(\d\d\.){2}\d\d');

if s = vData then

begin

var d := DateTime.Parse(s);

$'День: {d.Day}{NewLine}Месяц: {d.Month}{NewLine}Год: {d.Year}'.Println

end

else

'Дата введена не по образцу'.Println

except

'Такой даты в календаре не существует'.Println

end

end.

0 0

4 года назад