Регистрация
aprel123
04.11.2020 13:33
Информатика
Есть ответ 👍

с заданием по информатике

237
365
Посмотреть ответы 1

Ответы на вопрос:

rostislav2017
rostislav2017
4,8(82 оценок)
Program zadanie; var a, b, c, s, p, pp: real; begin writeln('введите сторону a'); read(a); writeln('введите сторону b'); read(b); writeln('введите сторону c'); read(c); p: =a+b+c; pp: =p/2; if (sqr(a)=sqr(b)+sqr(c)) then begin writeln('прямоугольный треугольник с гипотенузой a'); s: =1/2*b*c; writeln('площадь = ',s); end; if (sqr(b)=sqr(a)+sqr(c)) then begin writeln('прямоугольный треугольник с гипотенузой b'); s: =1/2*a*c; writeln('площадь = ',s); end; if (sqr(c)=sqr(b)+sqr(a))  then begin writeln('прямоугольный треугольник с гипотенузой c'); s: =1/2*b*a; writeln('площадь = ',s); end else begin writeln('непрямоугольный треугольник'); s: =sqrt(pp*(pp-a)*(pp-b)*(pp-c)); writeln('площадь = ',s); end; writeln('периметр = ',p); end.

Популярно: Информатика