Суворов
6 год назад
Составить алгоритм и написать решение задачи на Паскале: Даны 3 положительных числа. Найти периметр и площадь треугольника с данными сторонами.
ОТВЕТЫ
Авраамиевич
Jul 4, 2019
Program treyg;
var a,b,c,p:integer; s,pol:real;
begin
readln(a,b,c);
p:=a+b+c;
pol:=p/2;
s:=Sqrt(pol*(pol-a)*(pol-b)*(pol-c)) ;
Writeln(Площадь=,s);
Writeln(Периметр =,p)
end.
var a,b,c,p:integer; s,pol:real;
begin
readln(a,b,c);
p:=a+b+c;
pol:=p/2;
s:=Sqrt(pol*(pol-a)*(pol-b)*(pol-c)) ;
Writeln(Площадь=,s);
Writeln(Периметр =,p)
end.
193
Смежные вопросы:
