Ответ:
1)
Begin
Read(x1,y1,x2,y2);
Write(sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)));
End.
2)
Begin
Read(a,b,c);
P:=(a+b+c)/2;
Write(sqrt(p*(p-a)*(p-b)*(p-c)));
End.
СРЗНАЧ - в данном случае это среднее арифметическое четырех ячеек B5:D5. Их значение равно 80, "полное" 80 * 4 = 320.
Зная значение ячейки E5, найдем значения трех ячеек B5:D5, (320 - 20)/3 = 100. Получили B5 = 100, C5 = 100, D5 = 100.
Из этого можем найти сумму B5:D5 - 100 + 100 + 100 = 300.
Ответ: 300.
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,c,x):=ReadReal3('Введите a,c,x:');
var y:=(2*a-a/23)/Sqrt(1+a/4);
var z:=(2*c-4*y+Abs(a-y))/(Exp(x)+2*a*y*a);
Writeln('Y=',y,', Z=',z)
end.
<u>Пример</u>
Введите a,c,x: 3.5 -0.167 3.11
Y=5.00094509026456, Z=-0.129959221453275
0)начало
1)посадил дед репку
2)выростил
3)начал ее вытягивать из земли
4)позвал бабку
5)тянут потянут ,вытянуть не могут
5)позвали внучку
6)тянут потянут ,вытянуть не могут
7)позвали Жучку
8)тянут потянут ,вытянуть не могут
9) позвали кошку
10) тянут потянут, вытянуть не могут
11)позвали мышку вытащили
12)конец