6. Общее количество символов= 76
каждый символ кодируется 1 байтом, следовательно информационный объем всей фразы= 76*1=76 байт
76*8=608 бит
Ответ №2
7.Общее количество символов= 44
каждый символ кодируется 16 битами, значит информационный объем фразы = 44*16=704 бита
Ответ №2
8. Количество символов на экране монитора = 25*80 = 2000
Каждый символ в кодировке Unicode кодируется 16 битами
Объем текста на экране монитора= 2000*16= 32000 бит = 3,9 Кбайт
9. Всего символов в сообщении: 6*40*60 = 14400
Количество бит которое приходится на 1 символ получим разделив объем сообщения на количество символов: 28800/14400 = 2 байта на символ или 16 бит на символ
Ответ: 16 двоичных разрядов
10. Всего символов в сообщении: 4*32*40 = 5120
Количество бит на 1 символ i = Объем сообщения (бит)/количество символов = (5*1024*8)/5120 = 8 бит
Количество символов N в алфавите считаем из формулы: N=2^i
N=2^8 = 256
Ответ: 256 символов в алфавите
НОВЫЕ ХЛОПОТЫ ВЫТЕСНЯЮТ СТАРЫЕ
Ответ:
procedure recursiveprime(num:integer);
var
i:integer;
begin
{тупая проверка *числа* на простоту - пытаемся поделить на все числа от 2 до *числа*/2)
i:=2;
while i<(num div 2) and (num mod i <> 0) do inc(i)
if i=num div 2 then println(num,"- простое!');
if num<60 then recursiveprime(num+1);
end;
begin
recursiveprime(4);
end.
Объяснение:
ну как-то так.. паскаля под рукой нет, лет 7 назад последний раз трогал дельфи
рекурсивная процедура которая вызывает саму себя со следующим числом если переданое ему число меньше 60
проверка на простоту - пытаемся поделить на все числа от 2 до половины проверяемого числа и проверяем остатки.
надеюсь мысль понятна
program raf105;
var
s,p,n: real;
i,let: integer;
begin
write('Введите положенную сумму: ');
readln(s);
write('Введите ежегодный прирост (%): ');
readln(p);
write('Введите желаемую сумму: ');
readln(n);
while s < n do
begin
let+= 1;
s+= s/100*p;
end;
writeln('Первоначальная сумма увеличится до желаемой через ',let,' л.');
end.
<h3><em><u>Язык PascalABC</u></em></h3>