Предмет: Информатика, автор: Koriofox

Ввод а - сторона равностороннего треугольника
Найти периметр и площадь
(Процедуры или функцию использовать )

Ответы

Автор ответа: gsdfdsf
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.

Похожие вопросы
Предмет: История, автор: kaldybaevamirbek94
Предмет: Математика, автор: 123451117