Для молодёжи - 41
для взрослых - 147
<span>для стариков - 215</span>
Program TRAPECIYA;
var x1, x2 ,y1, y2, P, S:real;
begin
writeln("Введите значение верхнего основания");
readln(y1);
writeln("Введите значение нижнего основания");
<span> readln(y2);
</span> writeln("Введите значение левой грани");
<span> readln(x1);
</span> writeln("Введите значение правой стороны");
<span> readln(x2);
</span>P:=y1+y2+x1+x2;
S:=((y1+y2)/2)*sqrt(sqr(x1)-(sqr(sqr(y2-y1)+sqr(x1)-sqr(x2))/(2*(y2-y1)))
writeln(P);
writeln(S);
end
1АКЛМ по возрастанию 2МЛКА наоборот по уменьшанию 3МАЛК это большое маленькое большое маленькое 4АМКЛ наоборот маоенько большое маленькое большое Ас буквой М получается 2 хоть я и в 5 классе и у меня нет информатики надеюсь правельно ответил
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Sqr(ReadReal / 4).Print
end.
<h2>Пример</h2><h3>20.8</h3><h3>27.04 </h3><h2>Пояснения</h2>
ReadReal - осуществаляет ввод вещественного числа (периметра).
ReadReal / 4 - находит сторону квадрата
Sqr(ReadReal / 4) - находит площадь квадрата
.Print - выводит значение того, что стоит до точки
X+y+z=96
------------------------
1) x1=x-y
y1=y+y=2y
2) y2=y1-z=2y-z
z1=2z
3) z2=z1-x1=2z-x+y
x2=x1+x1=2x-2y
x2=y2=z2=96:3=32
----------------------------------
2x-2y=32 ----> x-y=16 ----> x=y+16 подставляем в (*)
2y-z=32 ------> z=2y-32 подставляем в (*)
2z-x+y=32 (*)
--------------------------------------------------
2(2y-32) -(y+16) +y=32
4y-64-y-16+y=32
4y=112
y=28
x=y+16=28+16=44
z=2y-32=56-32=24
ответ 44 28 24
