Компьютер, колькулятор, абак, часы
Var x,y: real;
begin
readln(x);
y:=x/(1+((x*x)/5+(x*x*x)));
writeln(y);
end.
16.384 кажеться,я конечно не уверена но если в одном килобайте №%-" бита то тогда правельно
Если используется однобайтовая кодировка, то 43 байта или 344 бита.
Sub
massiv01()
Dim M(3000)
As Integer
S = 0
N=2014
For i = 2
To N - 1
If M(i) < M(i - 1) And M(i) < M(i + 1)
And M(i) \ 3 = M(i) / 3 Then
S = S + 1
End If
Next i
If M(1)
< M(2) And M(i) \ 3 = M(i) / 3 Then
S = S + 1
End If
If M(N)
< M(N - 1) And M(i) \ 3 = M(i) / 3 Then
S = S + 1
End If
MsgBox
"Min = : " & S
<span>End Sub
Вариант VBA Excel
Посмотреть код Alt+F11
</span>