Предмет: Информатика,
автор: Koriofox
Ввод а - сторона равностороннего треугольника
Найти периметр и площадь
(Процедуры или функцию использовать )
Ответы
Автор ответа:
1
program tri;
var a:real;
function perimetr(side:real):real;
begin
perimetr := 3 * side;
end;
function square(side:real):real;
begin
square := sqrt(3) * sqr(side) / 4;
end;
begin
writeln('Введите сторону равностороннего треугольника:');
readln(a);
writeln('Периметр треугольника: ',perimetr(a):4:4);
writeln('Площадь треугольника: ',square(a):4:4);
end.
Похожие вопросы
Предмет: Геометрия,
автор: vikarotar398
Предмет: История,
автор: kaldybaevamirbek94
Предмет: Математика,
автор: Anasteysha28
Предмет: Математика,
автор: 123451117