М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
bachko2012
bachko2012
06.10.2020 08:57 •  Информатика

Св паскале. 50 !

дана последовательность слов. в каждом из них от 3 до 10 латинских букв; между соседними словами − один пробел; за последним словом – точка. вывести в текстовый файл все слова, преобразовав их по правилу: удалить из слова вторую букву.

👇
Открыть все ответы
Ответ:
Люсии1г7у
Люсии1г7у
06.10.2020
Пример компьютера (не очень быстрого по сегодняшним меркам):

Имя: Аркадий (да, я могу назвать компьютер так, как мне хочется)

Функция: выполнение вычислений, не требующих большой производительности

Элементный состав: корпус, материнская плата, процессор, жесткий диск, оперативная память, монитор, клавиатура, мышь.

Свойства:
Корпус: размеры 368 x 367 x 393 мм, встроенный блок питания 450 Вт, черный
Материнская плата: совместимость с процессорами Intel, оперативная память DDR4, интегрированная графика, 4 выхода USB 2.0, 2 выхода USB 3.0
Процессор: 2 ядра, 3.30 ГГц, техпроцесс 14 нм
Жесткий диск: 1 Тб, 7200 об/мин, скорость чтения/записи 200/150 Мб/с, среднее время поиска 14 мс
Оперативная память: DIMM DDR4, 4 Гб, частота 2133 МГц
Монитор: жк 21,5'', контрастность 1000:1, время отклика 5 мс, черный
Клавиатура: проводная, черная, USB
Мышь: проводная, черная, USB
4,4(8 оценок)
Ответ:
Требуемая процедура
Sub ex1(ByRef a() As Integer, ByRef nn As Integer, ByRef nz As Integer)
    Dim i As Integer
    nn = 0: nz = 0
    For i = 1 To 45
        If a(i) = 0 Then
            nz = nz + 1
        Else
            If a(i) < 0 And i <= 35 Then
                nn = nn + 1
            End If
        End If
    Next i
End Sub

Процедура для тестирования с выводом на лист Excel
Sub Test()
    Dim p(1 To 45) As Integer
    Dim n1 As Integer, n2 As Integer, i As Integer
    Randomize Timer
    For i = 1 To 45
        p(i) = Int(25 * Rnd - 12)
        Cells(i, 1) = p(i)
    Next i
    ex1 p, n1, n2
    Cells(1, 2) = n1
    Cells(1, 3) = n2
End Sub
4,5(64 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ