81
Объяснение:
1) 1 часть идентификатора состоит из 10 заглавных латинских букв. Всего латинских заглавных букв 26 => N=26
26 <= 2^i => i = 5 бит - объём, занимаемый одним символом
I (1 части) = 5 бит * 10 букв (из которых состоит код) = 50 бит
2) N = 99999
99999 <= 2^i => i = 17 бит - объём, занимаемый числом в идентификаторе
3) I (одного идентификатора без доп.информации) = 50 бит + 17 бит = 67 бит = 9 байт
I (одного идентификатора c доп.информации) = 9 + 13 = 22 байта
4) n = 1800/22 байта = 81 пользователей
function sum (n:integer):integer;
var s:integer;
begin
s:=0;
while (n<>0) do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write ('A = ');
readln (a);
write ('B = ');
readln (b);
if sum(a) > sum(b) then
writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
else if sum(b) > sum (a) then
writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
readln;
end.