==== PascalABC.NET =====
begin
var (x1, y1) := ReadReal2('Координаты х и у вершины 1:');
var (x2, y2) := ReadReal2('Координаты х и у вершины 2:');
var (x3, y3) := ReadReal2('Координаты х и у вершины 3:');
Print('Площадь треугольника равна',
0.5 * ((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)))
end.
64 * 256 = 16384 пикселей на изображении
16*1024 = 16384 байт памяти выделенного для изображения
16384 / 16384 = 1 байт информации хранит в себе 1 пиксель
1 байт позволяет хранить до 256 уникальных значений.
следовательно 256 цветов поддерживается
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
Исполнитель Чертежник и Исполнитель Робот