Program Pro1;
<span>type Date = record
day : 1..31;
mounth : 1..12;
year : integer;
end;
Person = record
SurnameName : string;
Birthday : date;
end;
<span>ListOfPeople = array [1..50] of person;
var</span></span>
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;<span>
begin
for i:=1 to 50 do
begin</span>
<span>Write('<span>Human '+IntToStr(i)+':')
</span>Write('Input </span>Surname and <span>Name:')
</span>ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year)<span><span>:')
</span>Read(People[i].</span>Birthday.day, People[i].Birthday.mounth, <span><span>People[i].Birthday.year);
</span>end;
//
</span><span>JoungHumanIndex:=1;
//
</span>JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year<span><span> * 32 * 13;
</span>for i:=2 to 50 do
if </span><span>JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year<span> * 32 * 13 then
begin</span></span>
//
JoungHumanIndex:=i;
//
<span><span>JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;</span>
</span>
<span>WriteLn('Most joung human: '+</span>People[JoungHumanIndex]<span><span><span>.<span>SurnameName</span></span>);
</span>end.</span>
Очевидно, что условие дано некорректно. 2 бита - это не "его количество информации", а количество бит, отводимых для информации о цвете каждого пикселя (точки). Два бита позволяют записать двоичное число от 0 до 3, следовательно картинка может содержать до четырех цветов. Информационный объем составит 80х2=160 бит. В одном байте 8 бит, поэтому в байтах объем составит 160/8=20 (байт).
(1 + 2): 3 = 1
1 * 2 + 3 - 4 =1
((1+2) : 3 + 4) : 5 =1
1 * 2 - 3 :(4 +5- 6) =1
1 * 2 + (3 + 4 +5) - (6 + 7) =1
((1 + 2): 3)* (4 + 5 + 6): ( 7+8) =1
<span>Полагаю, вопрос оборван и полная формулировка звучит следующим образом:
"Для узла с IP-адресом 203.155.196.98 адрес сети равен 203.155.192.0. Найдите наибольшее возможное количество единиц в двоичной записи маски подсети."
Нас интересует 3-й октет (байт) IP адреса, который равен 196. Переведем в двоичную систему.
</span>
![196_{10}=11000100_{2}](https://tex.z-dn.net/?f=196_%7B10%7D%3D11000100_%7B2%7D)
<span>Аналогично поступим с 3-м октетом адреса сети.
</span>
![192_{10}=11000000_{2}](https://tex.z-dn.net/?f=192_%7B10%7D%3D11000000_%7B2%7D)
IP адрес и маска подсети дают адрес сети, их поразрядное логическое умножение друг на друга. Для наглядности запишем это в столбик.
11000100 - IP
хххххххх - маска
11000000 - адрес сети
Однозначно, чтобы получить единицы в крайних левых разрядах адреса сети, они должны быть и в маске.
11000100
11хххххх
11000000
В задании требуется определить максимально возможное количество единиц в маске. Т.к. в маске подсети сначала идут все единицы, а потом все нули без чередования, маска будет следующей:
11000100
11111000
11000000
Будь единиц в маске хотя бы на одну больше, адрес сети бы изменился на 11000100.
Теперь представим нашу маску в двоичном коде:
11111111.11111111.11111000.00000000
Число единиц 8+8+5=21.
Ответ: 21 единица.
Передача голоса по каналам Интернет (протокол VOIP - Voice Over IP), которую еще называют IP-телефонией, не требует для осуществления никаких дополнительных затрат, потому что сеть Интернет и так имеется, а все необходимое оборудование и программное обеспечение установлено у абонентов. Поэтому IP-телефония по сути бесплатна, если у абонентов безлимитный тариф на подключение Интернет. Обычная международная телефонная связь подразумевает оплату телефонным компаниям за услугу предоставления телефонного соединения и использование каналов связи.