ДАЮ 30 БАЛЛОВ Выдает ошибки не понимаю что неправильно в программе Program P1;
var a,b,c,s,p:integer;
Begin
write('введите координату a=');
readln(a);
write('введите координату b=');
readln(b);
write('введите координату c=');
readln(c); p:=(a+b+c)/2;
writeln('периметр треугольника =',p);
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь треугольника =',s);
end.
var a,b,c,s,p:integer;
Begin
write('введите координату a=');
readln(a);
write('введите координату b=');
readln(b);
write('введите координату c=');
readln(c); p:=(a+b+c)/2;
writeln('периметр треугольника =',p);
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь треугольника =',s);
end.
More Questions From This User See All