В кодировке Macintosh каждый символ кодируется одним байтом. Определите информационный объем в битах сообщения из 30 символов в такой кодировке.
221
358
Ответы на вопрос:
Полный код программы var k, rk, n: longint; function f(n: longint): longint; begin f : = n * n * n; end; function calc(k: longint): longint; var i: longint; begin i : = 1; while f(i) < k do i : = i + 1; if f(i) - k < = k - f(i - 1) then calc : = i else calc : = i - 1; end; begin rk : = calc(10); n : = 0; for k : = 1 to 1000 do if calc(k) = rk then begin writeln('calc(', k, ') = ', calc(k)); n : = n + 1; end; writeln(n); end. вывод calc(5) = 2 calc(6) = 2 calc(7) = 2 calc(8) = 2 calc(9) = 2 calc(10) = 2 calc(11) = 2 calc(12) = 2 calc(13) = 2 calc(14) = 2 calc(15) = 2 calc(16) = 2 calc(17) = 2 13
Популярно: Информатика
-
8огонь828.03.2021 20:48
-
Feya200415.02.2022 17:45
-
кошачка27803.05.2023 11:34
-
vitaliysv20031301.06.2020 09:17
-
AliswandeChechir26.07.2021 09:25
-
dmgkmmsdk22.07.2021 02:13
-
ЧеLOVEчек5153408.06.2021 02:48
-
alexdias19.06.2021 11:24
-
Mashaf55510.04.2020 21:40
-
новичок60421.10.2021 01:08