Найдем: х-информационный объем до перекодировки
Решение: Для хранения 1 символа в кодировке КОИ-8 используется 8 бит или 1 байт, в кодировке Unicode для хранения 1 символа требуется 16 бит или 2 байта.
Таким образом при перекодировании информационный объем сообщения увеличился в 2 раза (количество символов при этом осталось таким же).
То есть информационный объем после перекодировки= 2х.
Составим уравнение:
х+8000=2х
2х-х=8000
х=8000 бит
Ответ: Информационный объем сообщения до перекодировки составлял 8000 бит
Всё здесь неправильно 2 система состоит из 0 и 1
8 система 1 2 3 4 5 6 7
16 система 1 2 3 4 5 6 7 8 9 a b c d e f
Паскаль
Program time ;
Var t : Integer;
Begin
WriteLn ('Введите время');
ReadLn (t) ;
If (t>=0) and (t<6) then
WriteLn ('Ночь') ;
If (t>=6) and (t<12) then
WriteLn ('Утро') ;
If (t>=12) and (t<18) then
WriteLn ('День') ;
If (t>=18) and (t<24) then
WriteLn ('Вечер') ;
End.
Лайк кста
Ответ:
program CountNum;
uses
SysUtils;
var
n, i, c: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (n);
s := IntToStr (n);
c := 0;
for i := 1 to Length (s) do begin
if StrToInt (s [i]) mod 2 = 0 then
Inc (c);
end;
WriteLn ('Количество четных цифр = ', c);
ReadLn;
end.
Var
n, a, s,i: integer;
begin
s := 0;
read(n);
for i := 1 to n do
begin
read(a);
if(a mod 3 = 0) then s := s + a;
end;
write(s);
end.
VVVVVVVVVVVVVV