Sub aaa()
Dim s As Double, r As Range
Set r = Range("C2:D8")
s = 0
For i = 1 To 7
s = s + r(i, 1) * r(i, 2)
Next i
Cells(9, 3) = s
End Sub
<u>Во вложении - файл с рабочей книгой Excel 2003</u>
Efhewjsissiaiaoaooa111q11111
Если я правильно поняла, то вот:
#Ruby
n = gets
a = gets # пластик
b = gets # стекло
c = gets # возврат
litrov = 0
if a < b-c
litrov = n/a
else
while (n >= a or n >= b)
if n >= b
n -= b-c
else
n -= a
end
litrov += 1
end
end
p litrov