Космическая археологическая экспедиция исследует космическое пространство в поисках сокровищ исчезнувших цивилизаций, сканируя сигналы разных планет. Получив соответствующий сигнал, экспедиция совершает посадку на планету. На каждой планете они находят какое-то количество сокровищ, оставляют маячок для грузового транспорта и летят дальше. Начальник экспедиции ведет бортовой журнал, в котором фиксирует, сколько сокровищ было на каждой планете, и передает эту информацию по специальной связи на Землю. К сожалению, начальник экспедиции заранее не знает, на скольких планетах сохранились сокровища.
определить, какой вместимости должен быть грузовой космический корабль, который нужно отправить вслед за экспедицией, когда будет подан сигнал об её окончании.
Формат входных данных
На вход программе подаются данные по строкам. В i-й строке информация о количестве сокровищ (целое число), найденных на i-й планете. В последней строке входных данных записано число 0.
Формат выходных данных
Выведите одно число – количество сокровищ, найденных экспедицией. Гарантируется, что число сокровищ, которые найдет экспедиция, меньше 109, а количество записей в бортовом журнале не превышает 106
Const width = 10
Sub Ìàêðîñ1()
Dim Sum(heigth - 1, width - 1)
Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1
For j = 0 To width - 1
Sum(i, j) = i + j
Product(i, j) = i * j
Next j
Next i
Call Show(Sum, 0, 0)
Call Show(Product, 0, 12)
End Sub
Sub Show(ByRef m, dx, dy)
For i = 0 To heigth - 1
For j = 0 To width - 1
ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
Next j
Next i
End Sub
"Я самый главный!"- заявил монитор, на мне возникает информация и изображения.
"Нет, я самая главная,- сказала клавиатура, без меня никак, не сможешь ничего оттреадактировать,вбить информацию в память, общаться - да вообще ничего!"
Но память возразила : " Ээх вы, я тут главнее всех, как вы без меня! Ничего не сохранишь, не запомнишь, да в общем без меня очень сложно что-то представить!"
"Да вы что? - начал возмущаться процессор, - Главных не должно быть, мы все представляем собой одно целое!" Так они и воссоединились и представляют собой одну частичку главного .