\\программа решения алгоритма на языке паскаль ABC.Net v3.3 сборка 1627
var a: array [1..2] of integer;
i, rez: integer;
begin
for i := 1 to 2 do
readln(a[i]);
rez := 0;
i:=1;
for i:=1 to 1 do
if (a[i] > a[i+1]) then rez := 1 else if (a[i] < a[i+1]) then rez := 2 else rez := 0; writeln(rez);
end.
Есть рекурсивный вариант: например
double area(ll xa, ll ya, ll xb, ll yb, ll xc, ll yc){ double res = abs(xa * (yc - yb) + xb * (ya - yc) + xc * (yb - ya)) / 2.0; return res;<span>}
вот формула </span>res = abs(xa * (yc - yb) + xb * (ya - yc) + xc * (yb - ya))
здесь xa, ya ... - координаты
Сделать бутерброд :
1)взять батон
2)нарезать батон
3)взять сыр
4)нарезать сыр
5)взять колбасу
6)нарезать колбасу