найдите ошибку.. она не работает(( program PLОСНАD;
var А,В,С:real;
D:real;
Р:real;
S:real;
begin
writeln('Задайте стороны A,В,С:');
read(А,В,С);
Р:=(А + В + С)/2;
D:=A;
if D<B then D:=B;
if D<C then D:=C;
if P>D
then
begin
S:=SQRT(P*(P-A)*(P-B)*(P-C));
writeln ('ПЛОЩАДЬ:',S)
end
else writeln (A,B,С, '- не являются сторонами треугольника');
end.
var А,В,С:real;
D:real;
Р:real;
S:real;
begin
writeln('Задайте стороны A,В,С:');
read(А,В,С);
Р:=(А + В + С)/2;
D:=A;
if D<B then D:=B;
if D<C then D:=C;
if P>D
then
begin
S:=SQRT(P*(P-A)*(P-B)*(P-C));
writeln ('ПЛОЩАДЬ:',S)
end
else writeln (A,B,С, '- не являются сторонами треугольника');
end.
More Questions From This User See All