===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var a := new BigInteger[n];
var k := BigInteger.One;
for var i := n-1 downto 0 do
begin
a[i] := k;
k *= 2
end;
a.Println
end.
Function Sign(x:real):integer;
begin
if x<0 then Sign:=-1
else if x=0 then Sign:=0
else Sign:=1;
end;
var a,b:real;
begin
writeln('a, b:');
readln(a,b);
writeln('Sign(A) + Sign(B) = ',Sign(a) + Sign(b));
end.
Пример:
<span>a, b:
-8 0
Sign(A) + Sign(B) = -1</span>
Пусть массы корзин k1 k2, ягод - y1 y2
Тогда
k1+y1=a1
k2+y2=b1
k1+y1+y2=a2
k2=b2
k1=a3
k2+y1+y2=b3
Как видишь, математики - полные лохи, количество данных даже избыточно. Возьмем только
y1=a1-a3
y2=b1-b2
Теперь осталось сравнить 2 полученных числа.
На 234 метро вырастет деревом через 2340 дней
Зрение; с помощью глаз люди различают цвета, воспринимают зрительную информацию, к которой относятся и текстовая, и числовая, и графическая;
слух; уши помогают воспринимать звуковую информацию – речь, музыку, звуковые сигналы, шум;
обоняние; с помощью носа люди получают информацию о запахах окружающего мира;
вкус; вкусовые рецепторы языка дают возможность получить информацию о том, каков предмет на вкус – горький, кислый, сладкий, соленый;
осязание; кончиками пальцев (или просто кожей), наощупь можно получить информацию о температуре предмета – горячий он или холодный, о качестве его поверхности – гладкий или шершавый.