Даю 80 баллов!
Даны три фигуры - треугольник со сторонами c,d,e, прямоугольник со сторонами a,b и круг с радиусом r, вычислить площади всех фигур и вывести площадь наибольшей фигуры. СРОЧНО пожалуйста хелп!!!!!
PASCAL
Ответы
Ответ дал:
0
program area;
var
c,d,e,a,b,r:integer;
s1,s2,s3,max,p: real;
begin
writeln('Введите стороный треугольника');
read(c, d, e);
writeln('Введите стороны прямоугольника');
read(a, b);
writeln('Введите радиус круга');
read(r);
p:=(c+d+e)/2;
s1:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s1:0:2);
s2:=a*b;
writeln('Площадь прямоугольника: ',s2);
s3:=pi*r*r;
writeln('Площадь круга: ',s3:0:2);
if s1>s2 then
max:=s1
else
max:=s2;
if max>s3 then
writeln('Наибольшпя площадь: ',max)
else
writeln('Наибольшая площадь: ',s3:0:2);
end.
Ответ дал:
0
Если Вам не сложно....Помогите мне тоже, пожалуйста...Я Вас ооочень прошу(( https://znanija.com/task/31304032
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад