MM
Maksim Makarov
ошибочная операция с плавающей запятой.. . Што не так?
program plocha;
uses crt;
var x1,y1,x2,y2,x3,y3,a,b,c,s,p: real;
begin
clrscr;
writeln ('wwedu coordunatu');
readln (x1,y1,x2,y2,x3,y3);
a:=sqrt(sqrt(x2-x1)+sqrt(y2-y1);
b:=sqrt(sqrt(x3-x2)+sqrt(y3-y2):
c:=sqrt(sqrt(x1-x3)+sqrt(y1-y3):
p:=(a+b+c)/2:
s:=sqrt(p*(p-a)+p*(p-b)+p*(p-c):
writeln ('plosha =' , s:5:2);
end.