Ограничение времени 1 секунда
Ограничение памяти
64Mb
Ввод
samecode in
Вывод
samecode.out
На вход программе подаются результаты эксперимента - несколько строк с кодами, разделе
Строки нумеруются с 1. Ваша задача - написать программу, выводящую сумму номеров стр
строки встречается в них столько-же раз, сколько он встречается в первой строке.
Формат ввода
Первая строка входного файла samecode.in (*) содержит число n – количество строк, получен
через пробел дату эксперимента в формате чч ММ.. (1<<101) Начиная со второй строки в
размещены строки с результатами эксперимента. Длина каждой строки не превышает 250 си
строки пробелы и запятые отсутствуют. Коды представляют собой произвольные сочетания с
каждой строке содержится как минимум один код. Никакой дополнительной информации вход
Dim Y() As Integer, X() As Integer
Dim i As Integer, n As Integer
Range(Cells(1, 2), Cells(100, 2)).ClearContents
i = 1
Do While Len(Cells(i, 1).Value) <> 0
i = i + 1
Loop
n = i - 1
ReDim Y(1 To n), X(1 To n)
For i = 1 To n
Y(i) = Cells(i, 1).Value
X(i) = Y(i) + i
Cells(i, 2).Value = X(i)
Next i
End Sub
Предполагается, что данные располагаются в колонке А, начиная с ячейки А1
В колонку B будет выведен результирующий массив.
Признак конца считывания - пустая ячейка в колонке А