Подготовить решение в виде блок-схемы: дан одномерный массив а из 15-ти элементов. найти количество положительных элементов. ❤❤❤
217
247
Ответы на вопрос:
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.
Популярно: Информатика
-
ilya00000023.06.2022 16:54
-
sasapanskov19.02.2020 15:28
-
mullagalievade06.06.2021 16:14
-
хорошист37830.10.2020 20:43
-
Harebin22.07.2020 07:05
-
166niko14.02.2023 22:37
-
vasilarina0607.05.2022 15:27
-
sedvl23.01.2023 23:06
-
12345635107.03.2021 08:17
-
МаргаритаБелыйЯр201508.02.2020 08:32