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

1

Ответы и объяснения

  • ali07
  • главный мозг
2011-09-19T21:48:51+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.