// 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.
Убрала несколько блоков, т.к. считаю их лишними
Во вложении решение. Триады-это разбиение по 3 цифры, тетрады - это по 4 цифры.
При переводе из десятичной сс в двоичную с помощью таблицы пишешь 1, если число нечетное (т.к. нечетное число на 2 без остатка не делится, и в остатке всегда 1. Этот остаток ты и пишешь, где нечетное). А чётное делится на 2 без остатка, поэтому там, где число чётное, пишется ноль.
PascalABC:
program ocenka; //название программы
var a:integer; //целочисленная переменная оценки
begin
writeln(a); //ввод (с клавиатуры) значения оценки
if (a=2) then writeln('Плохо') else writeln('Хорошо'); //условие (если а=2 -
// ругаем, иначе - хвалим)
end.