1) Набрать 8 литровый сосуд
2) Перелить в 3-x литровый из 8-ми литрового
3) Вылить все из 3-х литрового и повторить действие 2
4) Повторить действие 3
В 3-х литровом сосуде теперь 2 литра
5) Набрать 8 литровый сосуд и вылить из него 1 литр в 3-х литровый
1)32768 бит /8 (чтобы узнать сколько байтов)=4096 байт
2)4096/1024=4 килобайт
Текст программы на языке Pascal:
program p1;
var a: array [1..40] of integer;
var i,c:integer;
begin
c:=0;
for i:=1 to 40 do
begin
a[i]:=random(20);
write (a[i],' ');
if (a[i] mod 3) = 0
then c:=c+a[i];
end;
writeln;
writeln (c);
<span>end.</span>
Во вложении - файл с рабочей книгой MS Excel 2003.
Соответствующие макросы находятся на листах.
Sub abcd()
Dim so As Double, pp As Double, z As Double
so = 0: pp = 1: no = 0: np = 0
For i = 1 To 8
x = Cells(1, i + 1)
For y = -5 To 5 Step 2
z = x * y / (x ^ 2 + y ^ 2)
If z < 0 Then
so = sp + z
no = np + 1
Else
If z > 0 Then
pp = pp * z
np = np + 1
End If
End If
Next y
Next i
Cells(2, 5) = so / no
Cells(3, 5) = pp ^ (1 / np)
End Sub
Sub Ex26()
Dim a As Double, c As Double
For i = 1 To 6
a = Cells(1, i + 1)
c = Application.WorksheetFunction.Max(Abs(a), Abs(Cells(2, i + 1)))
m = 2 * a / (c * Exp(6))
Cells(3, i + 1) = m
Next i
End Sub