Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Составте блок схему вычесление периметра и площадь прямоугольного треугольника по долинам его двух катетов

Ответ оставил Гость

Мы так делали:

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.