3
(3 оценки)
4
ИнформатикБУ
8 лет назад
Светило науки - 496 ответов - 3298 раз оказано помощи
var
a: integer;
s: real;
begin
readln(a);
s:=(sqr(a)*sqrt(3))/4;
writeln(s);
end.
a: integer;
s: real;
begin
readln(a);
s:=(sqr(a)*sqrt(3))/4;
writeln(s);
end.
0
(0 оценок)
0
triolana
8 лет назад
Светило науки - 556451 ответ - 388270 раз оказано помощи
Площадь равностороннего треугольника через его сторону определяется по известной формуле:
// PascalABC.NET 3.0, сборка 1128
var
a:real;
begin
Write('Введите длину стороны треугольника: '); Read(a);
Writeln('Площадь треугольника равна ',sqrt(3)/4*sqr(a):0:3)
end.
Тестовое решение:
Введите длину стороны треугольника: 3.18
Площадь треугольника равна 4.379
// PascalABC.NET 3.0, сборка 1128
var
a:real;
begin
Write('Введите длину стороны треугольника: '); Read(a);
Writeln('Площадь треугольника равна ',sqrt(3)/4*sqr(a):0:3)
end.
Тестовое решение:
Введите длину стороны треугольника: 3.18
Площадь треугольника равна 4.379
Комментарии
var a,s,h,r1,R:real;<br />begin<br />readln(a);
нужно найти только площадь треугольника?
да