Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
1 апреля 2023 23:35
959
Пусть даны длины сторон треугольника. Вычислите его площадь.
1
ответ
Var s,p,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s);
end.
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника: ',s);
end.
0
·
Хороший ответ
3 апреля 2023 23:35
Остались вопросы?
Еще вопросы по категории Информатика
В папке с лабораторной работой находится файл, который называется « Документ для создания оглавления ». Откройте этот файл и отметьте стилем «Заголов...
Система команд исполнителя Бета состоит из двух команд, которым присвоены номера: 1 — прибавь b; 2 — умножь на 2. Выполняя первую из них, Бета увеличи...
После выполнения команды присваивания x:=x+y значение переменной х равно 3, а значение переменной у равно 5. Чему были равны значения переменных х и у...
begin if (y <200) and (x > 100) then writeln('ДА') else writeln('НЕТ') end. Было проведено 10 запусков этой программы, при которых в качестве з...
Алёша, Боря и Гриша нашли в земле старинный сосуд. рассматривая удивительную находку, каждый высказал по два предположения: 1)алёша: это сосуд греческ...