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

Тема: РАБОТА С STL Задание: Задана строка. Напечатать все согласные буквы в алфавитном порядке, которые встретились в строке больше двух раз.

Тема: ОБРАБОТКА ИСКЛЮЧИТЕЛЬНЫХ СИТУАЦИЙ
Задание: Создать динамический массив размером 10 элементов. Преобразовать его элементы следующим образом:
- разделить каждое числу на третий элемент массива;
- умножить каждое второе число на минимальный элемент.
Результаты вывести на экран. Обработать исключительную ситуацию, если недостаточно памяти.​

👇
Открыть все ответы
Ответ:
kitsunesan13
kitsunesan13
15.12.2020
Из условия нам известно, что ввод завершается числом ноль. Информация о количестве чисел требуется только если их запоминать в массиве, но у нас однопроходный алгоритм, массив не нужен, поэтому про "1000 чисел" благополучно забываем. Числа целые, и по модулю не превышают 30 000, следовательно им надо отводить двухбайтный тип integer, в в котором диапазон представления чисел [-32 768 ; 32 767].
"Нечетные числа, кратные трем" - это такие, у которых остаток от деления на два ненулевой, а остаток от деления на три нулевой. Поскольку числа целые, то и деление, конечно же, целочисленное.
Длина последовательности n - это просто счетчик количества прохождений цикла за вычетом единицы, потому что последний проход по циклу будет при вводе нуля, а его учитывать не надо. В другом счетчике k мы накапливаем количество чисел, для которых выполнилось рассмотренное выше условие "нечетные числа, кратные трем".

var
  n,k,m: integer;
begin
  Writeln('Вводите целые числа, для окончания введите 0');
  n:=0; k:=0;
  repeat
    Read(m); Inc(n);
    if (m mod 2 <> 0) and (m mod 3 = 0) then Inc(k)
  until m=0;
  Writeln('Введено чисел- ',n-1);
  Writeln('Нечетных, кратных трем- ',k)
end.

Тестовое решение:
Вводите целые числа, для окончания введите 0
-5
12
8
27
-18
14
-33
7
0
Введено чисел- 8
Нечетных, кратных трем- 2
4,5(89 оценок)
Ответ:
vanyu2312122
vanyu2312122
15.12.2020
Выделите на листе прямоугольную область ячеек с левым верхним углов в A1 и запустите программу, которая в каждой строке выделенной области обменяет местами содержимое ячеек с минимальным и максимальным значениями.

Sub abc()
    a = Selection.Value
    For i = 1 To UBound(a, 1)
        aMin = a(i, 1): aMax = aMin
        jMin = 1: jMax = 1
        For j = 2 To UBound(a, 2)
            If aMin > a(i, j) Then
                aMin = a(i, j): jMin = j
            End If
            If aMax < a(i, j) Then
                aMax = a(i, j): jMax = j
            End If
        Next j
        Cells(i, jMin).Value = aMax
        Cells(i, jMax).Value = aMin
    Next i
End Sub
4,6(18 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ