Предмет: Информатика,
автор: KotяAlgebra
Вычислить площадь треугольника заданного своими сторонами, предварительно проверив существование данного треугольника
В паскале
Пожалуйста, очень нужно))
Ответы
Автор ответа:
0
var
a,b,c:integer;
p,s:real;
begin
write('Введите значение A=');read(a);
write('Введите значение B=');read(b);
write('Введите значение C=');read(c);
p:=a+b+c/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
if (a<b+c) and (b<a+c) and (c<a+b) then
writeln('Треугольник существует')
else
writeln('Треугольник не существует');
writeln('Площадь треугольника=', S:5:2);
end.
a,b,c:integer;
p,s:real;
begin
write('Введите значение A=');read(a);
write('Введите значение B=');read(b);
write('Введите значение C=');read(c);
p:=a+b+c/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
if (a<b+c) and (b<a+c) and (c<a+b) then
writeln('Треугольник существует')
else
writeln('Треугольник не существует');
writeln('Площадь треугольника=', S:5:2);
end.
Похожие вопросы
Предмет: Українська мова,
автор: andriivira2403
Предмет: Другие предметы,
автор: begalinasezim
Предмет: Математика,
автор: chmuzh8436
Предмет: Математика,
автор: sabi010101010