Ответы на вопрос:
//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) { определения длины средней линии трапеции, если известны длины оснований трапеции. } var a,b : real; begin readln(a,b); writeln('длина средней линии = ',(a+b)/2); end. { вычисления площади трапеции, если известны ее основания и высота. } var a,b,h : real; begin readln(a,b,h); writeln('площадь трапеции = ',(a+b)/2*h); end. { вычисления расстояния между двумя точками на координатной плоскости } var x1,y1,x2,y2 : real; begin write('координаты 1 точки '); readln(x1,y1); write('координаты 2 точки '); readln(x2,y2); writeln('расстояние между точками = ',sqrt(sqr(x1-x2)+sqr(y1-; end. { вычисления периметра треугольника, если известны координаты его вершин } var x1,y1,x2,y2,x3,y3,a,b,c : real; begin write('координаты 1 вершины '); readln(x1,y1); write('координаты 2 вершины '); readln(x2,y2); write('координаты 3 вершины '); readln(x3,y3); a: =sqrt(sqr(x1-x2)+sqr(y1-y2)); b: =sqrt(sqr(x3-x2)+sqr(y3-y2)); c: =sqrt(sqr(x3-x1)+sqr(y3-y1)); writeln('периметр треугольника = ',a+b+c); end. { в углу прямоугольного двора размером a*b стоит прямоугольный дом размером c*d. подсчитать площадь дома, свободную площадь двора и длину забора. } var a,b,c,d,sh : real; begin write('размеры двора '); readln(a,b); write('размеры дома '); readln(c,d); sh: =c*d; //площадь дома writeln('площадь дома = ',sh); writeln('свободная площадь двора = ',a*b -sh); writeln('длина забора = ',(a+b)*2 -(c+d)); end.
Популярно: Информатика
-
ниразунематематик23.09.2021 21:39
-
byxanceva6kv224.06.2020 13:41
-
ayakabdadhev22.11.2020 19:37
-
12345152821.10.2022 00:47
-
RealPacani02.08.2020 12:20
-
maksimpolyakovox771108.02.2021 08:49
-
prunsesca00516.05.2022 01:24
-
happycatcom20.03.2020 01:34
-
alexdias14.10.2021 01:57
-
dasha501030.07.2021 21:22