
Федот
6 год назад
Составить алгоритм и написать решение задачи на Паскале: Даны 3 положительных числа. Найти периметр и площадь треугольника с данными сторонами.
ОТВЕТЫ

Кусаков
Jul 4, 2019
Var a,b,c,p:integer;
s,sg:real;
begin
readln(a,b,c);
p:=a+b+c; {периметр}
sg:=p/2;
s:=sqrt(sg*(sg-a)*(sg-b)*(sg-c)); {формула герона}
if s= 0 then writeln(Периметр = ,p, Площадь = не существует) else
writeln(Периметр = ,p, Площадь = ,s);
end.
s,sg:real;
begin
readln(a,b,c);
p:=a+b+c; {периметр}
sg:=p/2;
s:=sqrt(sg*(sg-a)*(sg-b)*(sg-c)); {формула герона}
if s= 0 then writeln(Периметр = ,p, Площадь = не существует) else
writeln(Периметр = ,p, Площадь = ,s);
end.
135