Используем формулу 2^i=N. Так как в алфавите 16 символов (N=16), то 2^i=16, следовательно i=4. 4 бита весит один символ. 384*4=1536. 1536 бит весит сообщение из 384 символов по 4 бита каждый. Переводим биты в байты. 1 байт=8 бит, 1536/8=192 байта. Переводим байты в килобайты. 1 килобайт=1024 байт. 192/1024=0,1875 килобайт весит все сообщение. Так что лучше ответ оставить в байтах (192 байта).

0 0

4 года назад

20.2 Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 4, или соо

smel

Var x, y, count, s: integer;
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('<span>Число по модулю не может быть > 300</span>.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.

0 0

3 года назад

Помогите отгадать ребус: изображено ЗМЕЯ САПОГ КОТ Змея - первая буква убирается Сапог (может быть ботинок, на рисунке один) Кот

Mikhas60

Мы же не знаем точно сапог это или обувь, или кросовок. Надо погадать, или фото пришли

0 0

3 года назад

Создать программу нахождения количества всех положительных элементов массива

Evgeniy Al-dgindi

Writeln('Введите количество элементов в массиве');
readln(n);
for i:=1 to n do
begin
writeln('Введите элемент массива');
readln (A[i]);
end;
Sum:=0;
for i:=1 to n do
if a[i]>0 then
Sum:=Sum+a[i];
Writeln('Сумма положительных элементов = ' Sum)

0 0

4 года назад