marta12t
18.03.2020 12:27

СОр по информатике 6 класс

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
qwerty1352
27.09.2022 12:10

1. Вычисляем значение цифр:

Например, в таблице дано, что 0000 = 4, соответственно каждый ноль означает единицу

1 = 0

2 = 0

3 = 0

5 = 0

6 = 1

7 = 0

8 = 2

9 = 1

0 = 1

2. Находим значения неизвестных цифр:

6855 = 1 + 2 + 0 + 0 = 3

9881 = 1 + 2 + 2 + 1 = 5

6591 = 1 + 0 + 1 + 0 = 2

3. Решаем примеры (если учесть, что цифры из предыдущего номера идут по порядку):

675 ÷ 3 - 215 = 10

475 × 5 ÷ 5 - 420 = 55

(2 - 1) × 83 = 83

4. Теперь нужно разобраться с цифрами, которые идут после примеров (три, один, один):

Тут, как я думаю, есть два варианта решения. Первый заключается в том, что к окончаниям цифр, которые получились в 3 номере, нужно добавить те цифры, которые написаны, то есть: 10 - 103, 55 - 551, 83 - 831.

На сейфе 12 позиций (цифр), то есть один круг равняется 12, соответственно:

103 ÷ 12 = 8 с остатком 7

551 ÷ 12 = 45 с остатком 11

831 ÷ 12 = 69 с остатком 3

Я считаю, что данное решение не правильное, так как крутить 69 раз не кажется мне разумным

Второе решение - окончания цифр, которые получились в 3 номере, заменяются на три, один, один: 10 - 13, 55 - 51, 83 - 81.

Делим на 12 (сейф):

13 ÷ 12 = 1 с остатком 1

51 ÷ 12 = 4 с остатком 3

81 ÷ 12 = 6 с остатком 9

В данном решении необходимо сделать максимум 6 оборотов, что кажется мне наиболее правильным.

ответ: 1 оборот по часовой, останавливается на цифре 1; 4 оборота против часовой, останавливается на 3; 6 оборотов по часовой, останавливается на 9.

Внимание! Не факт, что данное решение является правильным.

0,0(0 оценок)
Ответ:
nestarenko7ozgxln
12.05.2023 15:37
Sub m1()
    Cells.Clear
    Dim n As Integer, i As Integer, s As Integer
    n = InputBox("n = ")
    Cells(1, 1).Value = "n = " + Str(n)
    ReDim a(1 To n)
    For i = 1 To n
        a(i) = InputBox("a(" + Str(i) + ")")
    Next i
    Cells(2, 1).Value = "Исходный массив"
    Range(Cells(3, 1), Cells(3, n)).Value = a
    s = 0
    For i = 1 To n
        s = s + a(i)
    Next i
    Cells(4, 1).Value = "s = " + Str(s)
    Cells(5, 1).Value = "Полученный массив"
    For i = 1 To n
        a(i) = a(i) + s
    Next i
    Range(Cells(6, 1), Cells(6, n)).Value = a
End Sub
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота