Program qw;
uses crt;
Type
Atlas=Record
country,capital:string;
area,people:real;
end;
ps=File of atlas;
Var f:ps;
z,t:atlas;
Begin
assign(f,'1.dat');
rewrite(f);
z.country:='Латвия'; z.area:=67.7;
z.people:=2.6; z.capital:='Рига';
write(f,z);
z.country:='Литва'; z.area:=65.2;
z.people:=3.4; z.capital:='Вильнюс';
write(f,z);
z.country:='Польша'; z.area:=313;
z.people:=34.8; z.capital:='Варшава';
write(f,z);
z.country:='Украина'; z.area:=603.7;
z.people:=50; z.capital:='Киев';
write(f,z);
z.country:='Россия'; z.area:=17075.4;
z.people:=139; z.capital:='Москва';
write(f,z);
Close(f);
assign(f,'1.dat');
reset(f);
read(f,t);
while not(eof(f)) do
begin
read(f,z);
if t.people/t.area < z.people/z.area then t:=z;
end;
close(f);
writeln('Cтранa с наибольшей плотностью населения:');
writeln(t.country,' (плотность населения равна ',t.people/t.area:9:6,' млн на кв.км)');
end.
Собственно, объяснение уже почти написано в самом Вашем вопросе.
Когда мы в любой программе, не обязательно на языке Паскаль, записываем некое изображение числа, это число должно быть преобразовано в форму, понятную компьютеру, который будет эту программу исполнять. Попросту - в двоичную систему счисления.
Такое изображение числа принято называть литералом (от английского слова literal - буквальный, константа). Договорились, что если литерал изображает число, то это число считается представленным в десятичной системе счисления.
Но иногда у нас может возникнуть необходимость указать число в системе счисления, отличной от десятичной - в двоичной, восьмеричной или шестнадцатиричной. Каждый язык программирования решает это по-своему. Паскаль разрешает записывать шестнадцатиричные литералы. И для отличия требует, чтобы перед таким литералом добавляли знак доллара.
Т.е. если мы написали a:=347+263; то a получит значение 610, а если написать a:=347+$263, то 958. Потому что 263₁₆ = 611₁₀
Вот и все.
Рассмотрим третий байт IP-адреса узла и IP-адрес сети. Распишем в двоичном виде:
94 = 01011110
80 = 01010000
Первые два байта маски равны 255, так как байты узла и сети совпадают.
Для определения третьего байта маски сети найдем число первых бит, которые совпадают. Совпадают 0101, поэтому число первых бит равно 4, а сам третий байт маски равен 11110000, то есть 240.
1. У меня в комнате сейчас пустое множество драконов.
2. Мои родители являются множеством мощности 2.
3. Множество возможных слов языка
4. Множество точек в отрезке.
Или
1. [1, 2] ∩ [9, 19]
2. {1, 4}
3. Множество всех многочленов с целыми коэффициентами.
4. Множество непрерывных функций на отрезке [0, 1].
Sub M1()
MsgBox (Application.Max( _
Application.Min(InputBox("Введите a"), _
InputBox("Введите b")), _
Application.Min(InputBox("Введите c"), _
InputBox("Введите d")) _
))
End Sub