Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
1 апреля 2023 23:35
1202
Пусть даны длины сторон треугольника. Вычислите его площадь.
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
Остались вопросы?
Еще вопросы по категории Информатика
Что такое распознавание текста?...
Условный оператор if a mod 2 = 0 then write (1) else write (0) позволяет определить, является ли число а: чётным двузначным целым простым...
Как нарисовать елочку в программе Кумир (исполнитель Чертежник)?...
какова мощность алфавита, с помощью которого записано сообщение, содержащее 4096 символов, если объем сообщения составляет 1,5 Кбайт?...
Студент работая с функцией F=(w'n z) V(x'n y) V-x, начал заполнения таблицы истинности, но успел заполнить её до конца остался лишь фрагмент из трёх р...