Ответы на вопрос:
Program trapeciya; var x1, x2 ,y1, y2, p, s: real; begin writeln("введите значение верхнего основания"); readln(y1); writeln("введите значение нижнего основания"); readln(y2); writeln("введите значение левой грани"); readln(x1); writeln("введите значение правой стороны"); readln(x2); p: =y1+y2+x1+x2; s: =((y1+y2)/2)*sqrt(sqr((sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2- writeln(p); writeln(s); end
Популярно: Информатика
-
NINO1111121.05.2022 01:53
-
дрин212.08.2020 08:34
-
rodinaolga12.07.2020 14:11
-
nikas4511.01.2023 07:18
-
Борель30.01.2023 04:29
-
linolino23.10.2022 15:14
-
Праемпт01.01.2022 14:33
-
aizmesteva14.09.2021 23:15
-
яналапа19.06.2022 22:34
-
Niger0000rt04.09.2020 01:18