Решите !
сотрудникам компании электронную карту, на которой записаны их личный код, номер подразделения (целое число от 1 до 1200) и дополнительная информация. личный код содержит 17 символов и может включать латинские буквы (заглавные и строчные различаются), десятичные цифры и специальные знаки из набора @#$%^& * для хранения кода используется посимвольное кодирование, все символы кодируются одинаковым минимально возможным количеством битов, для записи кода отводится минимально целое число байтов. номер подразделения кодируется отдельно и занимает минимально возможное целое число байтов. известно, что на карте хранится всего 48 байтов данных. сколько байтов занимает дополнительная информация?
235
465
Ответы на вопрос:
Программа написана на языке паскаль. uses crt; var m, n,t, i : integer; a : array [1..10] of integer; max : array [1..10] of integer; begin clrscr; m : = -100; write ('n ='); readln (n); for i: = 1 to n do read (a[i]); for i: = 1 to n do if a[i]> =m then begin max[1]: = a[i]; m: =max[1]; end; for i: = 1 to n do if t< > 1 then if a[i]=max[1] then begin a[i]: =0; t: = t+1; end; m: = -100; for i: = 1 to n do if a[i]> =m then begin max[2]: = a[i]; m: =max[2]; end; t: = 0; for i: = 1 to n do if t< > 1 then if a[i]=max[2] then begin a[i]: =0; t: = t+1; end; m: = -100; for i: = 1 to n do if a[i]> =m then begin max[3]: = a[i]; m: =max[3]; end; t: = 0; for i: = 1 to n do if t< > 1 then if a[i]=max[3] then begin a[i]: =0; t: = t+1; end; m: = -100; writeln; for i : = 1 to 3 do t: = max[i]+t; writeln ('otvet ',t); readkey; end.
Популярно: Информатика
-
ulianakosovska018.08.2021 12:59
-
potato199909.04.2022 01:27
-
Den522025.11.2020 05:11
-
Zen20105.12.2021 20:10
-
alusykapogo19.10.2022 13:44
-
7693824.02.2022 13:49
-
котеенок123313.12.2021 06:30
-
Сложное12322.01.2022 12:47
-
ворона111101.09.2020 21:34
-
azizbekboboniyozov13.08.2022 12:51