Видимо, это фрагмент программы на VB, привязанный к клику по кнопке Button4 на некоторой форме.
<span>Private Sub CommandButton4_Click()
</span><span><span>Max = 0
</span> For j = 1 To n
For i = 1 To m
If Max < a(i, j) Then Max = a(i, j)
Next i
Next j
TextBox2.Text = TextBox2.Text + Str(Max) + " "
End Sub</span>
Здесь ищется, а затем выводится в поле на форме максимальный элемент двухмерного массива, который извне и заполнен некоторыми значениями. Оператор ReDim я убрал, потому что он уничтожит содержимое массива.
В В1 будет написано число 4
так как нам в ячейке А1, присутствующей в формуле, заданной нам в В2, введено значение 2
подставляем в формулу
2+2=4
Var
max, i : integer;
a : array [1..20] of integer;
begin
max := -1;
for i := 1 to 20 do read (a[i]);
for i := 1 to 20 do
if (a[i] < 1000) and (a[i] > 99) and (a[i] mod 4 = 0) and (a[i] > max) then
max := a[i];
if max > -1 then write (max) else write ('Nety');
end.
#include <iostream>
using namespace std;
int main(){
double x,y,z;
cin>>x;
cin>>y;
z=(x+y)/(y+1)-(x*y-12)/(34+x);
cout<<z;
cin.get();
cin.get();
}<span>
</span>
32 = 2 в 5 степени
Значит достаточно 5 битов