111111011110110 в 2-ой
57366 в 8-ой
5ef6 в 16-ой
Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function
Program massiv;
var i,max,n,j: integer;
a: array[1..30] of integer;
begin
writeln ('Введите элемент массива');
for i:=1 to 30 do
begin
write ('a[',i,']-');
readln (a[i]);
end;
n:=1;
max:=a[i];
for i:=2 to 30 do
if max<a[i] then
begin
max:=a[i];
n:=i;
end;
for i:=1 to 30 do
if a[i]<0 then a[i]:=-a[i];
writeln ('Наибольший элемент в массиве ', max);
writeln ('Номер массива ', n);
writeln ('Получившийся массив');
for i:=1 to 30 do
write (a[i],' ');
end.
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>