Форум: «ЕГЭ по информатике»

На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Программы "заворачивайте" в тэг [pre2]...[/pre2], при этом сохраняются все отступы и применяется моноширинный шрифт. Если у вас используется сочетание "[i]" для обозначения элемента массива или строки, ставьте пробел после открывающей скобки. Иначе система выделит все дальнейшее курсивом.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

## uses school;
function NetMask(ip:string):string; //255.255.224.0 //19
begin
var b:=ip.Split('.');
var oct3:= bin(b[2].ToInteger); //3-й октет ip
while oct3.Length<>8 do oct3:='0'+oct3;

var tmp:='';
var s:=oct3[1:4];
// --> 111
if (s='000') then tmp:='00000000';
if (s='001') then tmp:='00100000';
if (s='010') then tmp:='01000000';
if (s='011') then tmp:='01100000';
if (s='100') then tmp:='10000000';
if (s='101') then tmp:='10100000';
if (s='110') then tmp:='11000000';
if (s='111') then tmp:='11100000';

Result:=dec(bin(b[0].ToInteger),2)+'.'+
dec(bin(b[1].ToInteger),2)+'.'+
dec(tmp,2)+'.'+'0';
end;

var s:=ReadAllLines('26-88.txt');
var D:=new Dictionary<string,integer>;
for var i:=1 to s.count-1 do
begin
var m:=NetMask(s[ i]);
if d.ContainsKey(m) then d[m]:=d[m]+1
else d[m]:=1;
end;
d.OrderByDescending(x->x.Value).Take(10).Print(NewLine);

with open('26-88.txt', 'r') as f:
addrs = [list(map(int, (f.readline().strip().split('.')))) for i in range(int(f.readline()))]

addrs = sorted(addrs)
addrs_subnets = []
addrs_subnets.append([addrs[0][0], addrs[0][1], (224 & addrs[0][2]), 0])
for n in range(1, len(addrs)):
if addrs[n] != addrs[n - 1]:
addrs_subnets.append([addrs[n][0], addrs[n][1], (224 & addrs[n][2]), 0])

ans = ''
k = 0
mx = 0
for n in range(len(addrs_subnets)-1):
if addrs_subnets[n] == addrs_subnets[n + 1]:
k += 1
else:
k += 1

if k > mx:
mx = k
ans = str(addrs_subnets[n][0]) + str(addrs_subnets[n][1]) + str(addrs_subnets[n][2]) + \
str(addrs_subnets[n][3]) + ' ' + str(mx)
k = 0

print(ans)

f = open('26-88.txt')
n = int(f.readline())
a = {}
m = 224
s = set() # для отсечения повторяющихся узлов
for i in range(n):
p = f.readline()
if p not in s:
s.add(p)
x1, x2, x3, x4 = p.split('.')
x3 = str(m & int(x3))
x = x1 + x2 + x3 + '0'
a[ x] = a.get(x, 0) + 1
k = 0
adres = '99999999'
for i in a:
if a[ i] > k:
k = a[ i]
adres = i
elif a[ i] == k and i < adres:
adres = i
print(adres, k)