Статья, набранная на компьютере, содержит 64 страницы, на каждой странице 32 строки, в каждой строке 45 символов.
Определите информационный объём статьи в Кбайтах в
кодировке Windows-1251, в которой каждый символ
кодируется 8 бит.
Ответы на вопрос:
90.
Объяснение:
64 * 32 * 45 = 92160 — всего символов.
92160 : 1024 = 90 — вес сообщения в килобайтах.
var
a : integer; flag : byte; s : string;
function hextodec (s : string) : integer; var i, d, dig : integer; res : integer; begin d : = 1; res : = 0; for i : = length (s) downto 1 do begin dig : = ord (s[i]); if dig < 58 then res : = res + (dig - 48) * d else res : = res + (dig - 55) * d; d : = d * 16; end; hextodec : = res; end;
function dectohex (a : integer) : string; var dig : integer; c : char; res : string; begin res : = ''; repeat dig : = a mod 16; if dig < 10 then c : = chr (dig + 48) else c : = chr (dig + 55); res : = res + c; a : = a div 16; until a = 0; dectohex : = res; end;
function revert (s : string) : string; var i : integer; r : string; begin r : = ''; for i : = length (s) downto 1 do r : = r + s[i]; revert : = r; end;
begin writeln ('введите систему счисления, в которую переводим'); readln (flag); if (flag = 16) then begin writeln ('введите число в десятичной системе счисления'); readln (a); writeln (revert (dectohex (; end else if (flag = 10) then begin writeln ('введите число в шестнадцатиричной системе счисления'); readln (s); writeln (hextodec (s)); end else writeln ('ошибка : неверная система счисления'); readln; end.
Популярно: Информатика
-
7chappe10.12.2021 10:42
-
alenagerasimov103.03.2022 01:05
-
karrygreenk11.04.2023 01:04
-
настя718704.08.2022 19:33
-
andreyffyff28.01.2023 15:22
-
какасика26.06.2022 03:41
-
mm052801825.11.2022 19:37
-
анастасия152026.02.2022 08:09
-
polanovikova26.03.2022 22:52
-
vitalinaartikov26.05.2020 01:19