// PascalABC.NET 3.3.5
begin
var xa, xb, xc, ya, yb, yc: real;
readln(xa, ya, xb, yb, xc, yc);
writeln(abs((xa - xc) * (yb - yc) - (xb - xc) * (ya - yc))/2);
end.
До значения <=10 пройдет 4 цикла: 7, 8, 9, 10
3 координаты
Ось х - длина
Ось у - ширина
Ось z - высота
Var a,b,c,max:integer;
begin
read(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>c) and (b>a) then max:=b;
if (c>a) and (c>b) then max:=c;
writeln(max);
<span>end.</span>
Да хренас два вам ее кто - нибудь решит! Мы уже второй день решаем вашу задачу. Мой кот умер от голода, потому что я задумался над этой задачей слишком сильно. Меня откачивали 16 часов, после того как я упал в обморок из за голода, ибо я тоже не кушал с того момента как услышал условие этой задачи. Даже когда я проснулся в больнице, я все равно начал рассказывать соседям по палате об этой задаче. Решения нет. желания нет. Боли тоже нет.