вычислить периметр и площадь прямоугольного треугольника по заданным длинам двух катетов А и В, записав это в программе Turbo Pascal

6 октября, 2022 от ilyuha_otvecha

Вопрос от посетителя:

Program xxx;

Var a, b, c, p, s : real;

Begin

wtiteln(‘введите катет а-‘);

read(a);

wtiteln(‘введите катет b-‘);

read(b);

s:=(a*b)/2;

writeln(‘площадь треугольника =’, s);

c:=sqrt(sqr(a)+sqr(b));

p:= a+ b + c;

writeln(‘периметр треугольника =’, p);

end.