Верхний: ctrl shift +
нижний: ctrl +
Для записи результата одного спортсмена требуется log(2)12≈4 бита (2^4=16). Объем информации о финише 2/3 спортсменов = 4*12*2/3 = 32 бита = 4 байта.
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018
</h3>
begin
var count := 0;
var a := Range(ReadInteger('a='), ReadInteger('b='))
.Select(t -> t.ToString.JoinIntoString(' ').ToIntegers)
.Where(t -> t.Count.IsEven);
foreach var x in a do
begin
var (b, i) := (true, 0);
while (b) and (i < x.Length - 1) do
begin
if (x[i].IsOdd and x[i + 1].IsOdd) or (x[i].IsEven and x[i + 1].IsEven)
then b := false;
inc(i, 2);
end;
if (i = x.Length) and (b) then inc(count);
end;
count.Println;
end.
<span>Всеми́рная паути́на (англ. World Wide Web) — распределённая система, предоставляющая доступ к связанным между собой документам, расположенным на различных компьютерах, подключенных к Интернету. Для обозначения Всемирной паутины также используют слово веб (англ. web «паутина») и аббревиатуру WWW.</span>
Программа на паскале:
var x,y,v:real;
begin
readln(x,y);
if x>1
then if y>1 then v:=x+y else v:=x-y
else if y>0 then v:=-x+y else v:=-x-y;
writeln('v = ',v);
end.
Пример:
5 -1
v = 6