Книжка, в которой 400 страниц текста (каждая страница содержит 30 строк по 60 символов в каждой), закодирована в 8-битной кодировке. Сколько секунд потребуется для передачи этой книжки по линии связи со скоростью 5 кбит/c?
т.к. основание исходной системы счисления является стеменью 2 то значит можно просто представить каждую цифру в двоичной системе и получить двоичное представление числа
A = 1010
F = 1111
т.к. каждая цифра числа в восьмиричной системе счисления кодируется 3 битами то можно получить представление числа в восьмиричной системе счисления просто последовательно перобразовав каждые 3 разряда в цифру в восьмиричной системе счисления
111 = 7
101 = 5
010 = 2
для преобразования в десятичную систему счисления нужно каждую цифру числа пребразованную в десятичную систему счисления умножить на основание системы счисления в спени номера разряда и все результаты просуммировать
т.к. основание исходной системы счисления является стеменью 2 то значит можно просто представить каждую цифру в двоичной системе и получить двоичное представление числа
A = 1010
F = 1111
т.к. каждая цифра числа в восьмиричной системе счисления кодируется 3 битами то можно получить представление числа в восьмиричной системе счисления просто последовательно перобразовав каждые 3 разряда в цифру в восьмиричной системе счисления
111 = 7
101 = 5
010 = 2
для преобразования в десятичную систему счисления нужно каждую цифру числа пребразованную в десятичную систему счисления умножить на основание системы счисления в спени номера разряда и все результаты просуммировать
отсчет разрдов идет справа налево от 0
A = 10
F = 15
var
s : string;
i : integer;
f : boolean;
begin
readln (s);
writeln ('Тут ', length (s), ' символов');
f := true;
for i := 1 to length (s) div 2 do
if s[i] <> s[length (s) - i + 1] then f := false;
writeln ('Это слово является перевертышем: ', f); //True/False
end.
var
s : string;
i, k, count : integer;
c : char;
begin
readln (s);
count := 0;
for i := 1 to length (s) do
if s[i] <> ' ' then
begin
c := s[i];
k := i + 1;
break;
end;
for i := k to length (s) do
if (s[i] = ' ') and (c <> ' ') then
begin
if s[i - 1] = c then inc (count);
c := ' ';
end
else if c = ' ' then c := s[i];
if (c <> ' ' ) and (s[length (s)] <> ' ') and (c = s[length (s)]) then inc (count);
writeln (count);
end.