Question

дана сторона равностороннего треугольника составьте программу для вычисления его периметра и площади(Паскаль)

Answer 1

var a, b:integer;

begin

writeln ('Введите стороны a и b');

writeln ('Введите сторону a');

readln (a);

writeln ('Введите сторону b');

readln (b);

writeln;

writeln ('Периметр = ', (a+b)*2);

writeln ('Площадь = ', a*b);

readln;

end.

Answer 2

ай, с площадю не так написал. подставь там для треугольника формулу

Answer 3

а, во. бери

Answer 4

program P1;

var
a, b, c, P, S: real;

procedure Pr(a, b, c: real; var P: real);
begin
P := a + b + c;
end;

function F(a, b, c: real): real;
var
pp: real;
begin
pp := (a + b + c) / 2;
f := sqrt(pp * (pp - a) * (pp - b) * (pp - c));
end;

begin
Writeln('Vvedite a,b,c');
readln(a, b, c);
pr(a, b, c, p);
writeln('P = ', P, ' S = ', f(a, b, c));

end.

Answer 5

это к треугольнику