Предмет: Информатика,
автор: 1092387456
Язык паскаль. Напишите программу вычисления площади равностороннего треугольника. Заранее спасибо.
Ответы
Автор ответа:
0
var b,a,p,s:real;
begin
Writeln('Введите длинну основания и длинну боковой стороны равнобедренного треугольника через пробел');
readln(a,b);
p:=(a+b*2)/2;
s:=sqrt(p*(p-a)*sqr(p-b));
writeln(s:4:1, ' см. квадратных');
end.
begin
Writeln('Введите длинну основания и длинну боковой стороны равнобедренного треугольника через пробел');
readln(a,b);
p:=(a+b*2)/2;
s:=sqrt(p*(p-a)*sqr(p-b));
writeln(s:4:1, ' см. квадратных');
end.
Похожие вопросы
Предмет: Информатика,
автор: nikitkasergeev77
Предмет: Математика,
автор: ytkinaveronichka228
Предмет: Қазақ тiлi,
автор: eyfhvjfhvhb6
Предмет: Химия,
автор: Enjusted
Предмет: Литература,
автор: krfrbgrekr