VB.
Dim A() As Integer
Randomize()
Dim k As Integer
Dim i As Integer
i = Rnd() * 100 + 1
ReDim A(i)
For k = 0 To i
A(k) = Rnd() * -1000 + 500
Next
Dim intA, intB As Integer
intA = InputBox("Введите начало интервала")
intB = InputBox("Введите конец интервала")
Dim R, Q, S As Integer
R = 0
For i = 1 To UBound(A)
If A(i) < A(R) Then R = i
If A(i) Mod 2 <> 0 Then Q = Q + A(i)
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
If A(i) > intA And A(i) < intB Then S = S + 1
Next
<span> MsgBox("T=R/Q+1+S = " & A(R) / Q + 1 + S)</span>
Вторая задача
var a,b,i,sum:integer;beginread(a,b);for i:=1 to b do begin inc(sum,a); end;writeln(sum);end.
Третья задача.
var a,b,i,sum:integer;beginwriteln('Cколько минут прошло?');read(a);sum:=1;for i:=1 to a do begin inc(sum,sum); end;writeln(sum);end.
Четвертая задача
var a,i,x:integer; fibb:array [0..1000] of integer;beginread(a);fibb[0]:=1;fibb[1]:=1;i:=2;while fibb[i-1]<a do begin fibb[i]:=fibb[i-1]+fibb[i-2]; inc(i); end;x:=i;for i:=1 to x-2 do beginwrite(fibb[i],' ');end;end.
В смысле какую информацию мы получим, если.
например, сколько информации мы получим, если узнаем 2 знака после запятой в числе пи?, ответ: 2 знака, если чисто по информатике, то возможно ответ должен быть в байтах, или битах, в строке 1 символ это 1 байт, число до 2миллиардов это 4 байта, то есть если ответ 643544, то ответ 4 байта
