4 бита информации говорят о том, что выбор был сделан из двух в четвертой степени (т.е. из 16) вариантов. Следовательно, <em>16 этажей</em>.
Var
r1, r2, x1, y1, x2, y2, x3, y3, x4, y4 :real;
begin
read(x1,y1,x2,y2,x3,y3,x4,y4);
if x1>x2 then r1:=(x1-x2)*(x1-x2)
else r1:=(x2-x1)*(x2-x1);
if y1>y2 then r1+=(y1-y2)*(y1-y2)
else r1+=(y2-y1)*(y2-y1);
if x3>x4 then r2:=(x3-x4)*(x3-x4)
else r2:=(x4-x3)*(x4-x3);
if y3>y4 then r2+=(y3-y4)*(y3-y4)
else r2+=(y4-y3)*(y4-y3);
if r1>r2 then writeln('Первый длинней второго')
else
if r1=r2 then writeln('Они равны')
else
writeln('Второй длинней первого');
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(20,-50,50); a.Println;
var im:=a.Pairwise.Select(t->Abs(t[0]-t[1])).ToArray.IndexMin;
Println(a[im],a[im+1]);
end.
<u>Пример</u>
7 -46 48 -46 -1 -33 40 -30 -45 -47 -5 14 21 -15 -17 -36 39 5 22 -19
-45 -47
<span>Уточнили бы сразу что это тесты про Ворд
Какой раздел ленты отвечает за форматирование шрифта?
А.Главная
Что такое кегль?
В.Размер шрифта
Что такое гарнитура ? (вообще это группа шрифтов объединенная схожим начертанием, потому два ответа, так как вид и стиль почти синонимы)
А.Вид шрифта
Д.Стиль шрифта
</span>