Sub algoritm()
a = Cells(2, 3)
b = Cells(3, 3)
c = Cells(4, 3)
s = Sqr(3 * c ^ 3 + b ^ 5) / (b - c)
k = Sqr(s) + Abs(-a * b * c)
y = s + 3 * k - s ^ 4 / (b + c)
Cells(5, 3) = y
<span>End Sub
</span>
<span>1)
a:=-3
b:=(-3+2)*(-3+2)=1
a:=2*1-(-3)=5
2) Будет выведено число 1
</span>
PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
program pascal;
var s, v, r:real;
begin
writeln('ВВедите радиус');
readln(r);
s:=4*3.14*r*r;
v:= 4/3*3.14*r*r;
Writeln('Площадь шара=',s,'Объем шара=',v);
end.
<span>В диапазон A5:D8 входит 16 ячеек
</span>
М - количество ракушек у мудрика
Э - количество какушек у элзик
Из первого условия:
М-1 = Э+1 (1)
Из второго условия:
М +1 =2*(Э-1) (2)
Из (2) уравнения находим: М= 2*Э -2-1=2*Э-3.
Подставляем М во (1) уравнение:
2*Э-3-1=Э+1 --> Э =5, подставляем Э=6 в (1) уравнение и находим М:
М=7
Ответ: было: у мудрика 7 ракушек, у элзика 5 ракушек