Надеюсь на полное решение: 1. алфавит состоит из 25 букв. какое количество информации несет в себе одна буква такого алфавита? 2. сколько кбайт составит сообщение из 200 символов 20-ти символьного алфавита? 3. какой объем информации несет в себе сообщение, занимающее 3 страницы по 25 строк, в каждой строке 80 символов 20-ти символьного алфавита? 4. для записи текстов использовался 256-символьный алфавит. каждая страница содержит 30 строк из 70 символов в строке. какой объем информации содержат 5 страниц текста?

👇

Ответ:

АннаПетух

14.08.2020

№1. Так как в алфавите 25 букв, то одна буква несет в себе 5 бит информации (32=2 в 5 степени)
№2. 1) 1 символ=5 бит (также, как и в первой задаче). 200*5=1000 бит - сообщение. 1000 бит=125 байт=0,12 Кбайт (приблизительно)
№3. 1 символ=5 бит. 5*80*25*3=30000 битов =3750 байт
№4. 1 символ=8 бит. 8*5*30*70=84000 битов =10500 байт

4,4(92 оценок)

Открыть все ответы

Ответ:

raku13

14.08.2020

В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.

var
n,s,t,i:integer;
begin
Write('Укажите количество данных: ');
Read(n);
Writeln('Теперь вводите данные');
s:=0;
for i:=1 to n do
    begin
    Read(t);
    s:=s+t
    end;
Writeln('Средняя температура за месяц составила ',s/n:0:1)
end.

Пример решения

Укажите количество данных: 11
Теперь вводите данные
27 29 26 31 24 23 27 30 31 28 25
Средняя температура за месяц составила 27.4

4,4(48 оценок)

Ответ:

HoneyAmy

14.08.2020

Программа в системе PascalABC.Net (время выполнения около 2с)
var
n1,n2,n3:int64;

function IsPrime(n:Int64):Boolean;
var
p:Int64;
found:Boolean;
begin
case n of
1:Isprime:=False;
2:IsPrime:=True;
else begin
    found:= (n Mod 2 = 0);
    p:=3;
    while (not found) and (sqr(p)<=n) do
      begin found:=(n Mod p = 0); p:=p+2 end;
    IsPrime:=(not found) or (p = 2)
    end
end
end;

procedure Fib();
begin
n3:=n1+n2; n1:=n2; n2:=n3
end;

var
i,k:integer;
begin
n1:=0; n2:=1; k:=0;
Writeln('Простые среди первых 45 чисел Фибоначчи');
for i:=3 to 45 do
begin
    Fib; if IsPrime(n3) then begin Write(n3,' '); Inc(k) end
end;
Writeln(#13#10,'Найдено простых чисел: ',k)
end.

Результат выполнения программы:
Простые среди первых 45 чисел Фибоначчи
2 3 5 13 89 233 1597 28657 514229 433494437
Найдено простых чисел: 10

4,5(11 оценок)

Это интересно:

Кулинария-и-гостеприимство

23.05.2023

Как использовать галогенную печь: простой и быстрый гид...

Образование-и-коммуникации

25.10.2021

Секреты общения с глухими людьми: как научиться понимать и быть понятым...

Семейная-жизнь

08.02.2021

Остановите драку! Как сделать так, чтобы ваш малыш перестал драться...

Компьютеры-и-электроника