Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

4 задание, помогите кто может.

Ответ оставил Гость

Program qq;
uses crt;
var xa, ya, xb, yb, xc, yc, s: integer
begin
write(Введите координаты вершины A);
read(xa,ya);
writeln(Введите координаты вершины B);
read(xb,yb);
writeln(Введите координаты вершины C);
read(xc,yc);
s:=0.5*((xa-xc)*(yb-yc)-(xb-xc)*(ya-yc));
if s<0 then
writeln(Площадь равна ,s);
end.
end.
Я могу со знаками напутать, так как компьютера под рукой нет
Там в скобках по русски