В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Katya270403
Katya270403
20.03.2020 22:11 •  Информатика

1)Что понимают под информационной безопасностью информационной системы?

2)Какая категория интересов субъектов информационных отношений была нарушена в результате хакерской атаки на серверы Buy 7 мая 2000 года?

3)а)Почему доступность информации для субъектов информационных отношений предпринимательской деятельности?

б)Какую роль, по вашему мнению ,играет целостность информации в успешном развитии предпринимательской деятельности?

в)Какую роль играет конфиденциальность информации в успешном развитии предпринимательской деятельности?

4)в чем, на ваш взгляд, проявляются доступность, целостность и конфиденциальность информационного взаимодействия между банком и его клиентами?

5)В чем ,на ваш взгляд, может состоять неприемлемый ущерб при нарушении а)Доступность б)целостности в)конфиденциальности?

Показать ответ
Ответ:
HeBiDiMKa
HeBiDiMKa
17.07.2022 16:59
Function IsPrime(n As Integer) As Boolean
    Dim found As Integer
    found = n Mod 2 = 0
    Dim p As Integer
    p = 3
    Do While Not found And p * p <= n
        found = n Mod p = 0
        p = p + 2
    Loop
    IsPrime = Not found
End Function

Sub main()
    Randomize Timer
    Dim n As Integer, i As Integer, k As Integer
    n = 100 + Int(Round(899 * Rnd))
    ReDim a(1 To n) As Integer
    ReDim b(1 To n) As Integer
    i = 0: k = 0
    MsgBox n
    Do While i < n
        i = i + 1
        a(i) = 1000 + Int(Round(8999 * Rnd))
        If IsPrime(a(i)) Then
            k = k + 1
            b(k) = a(i)
        End If
    Loop
    Rows("1:1000").Clear
    Range(Cells(1, 1), Cells(n, 1)) = a
    For i = 1 To k
        Cells(i, 1) = a(i)
        Cells(i, 2) = b(i)
    Next i
    If k > 1 Then 'Сортировка второй колонки, так красивее
        Dim r As Range
        Set r = Range(Cells(1, 2), Cells(k, 2))
        r.Sort Range("B1")
    End If
    For i = k + 1 To n
        Cells(i, 1) = a(i)
    Next i
End Sub
0,0(0 оценок)
Ответ:
nastyakhariton1
nastyakhariton1
23.11.2021 01:59
Вот решение на C#
using System;
using System.Collections.Generic;
using System.Linq;

namespace Help


    class MainClass
    {
        public static void Main(string[] args)
        {
            int day = 1;
            double mass = 50;
            double changing = 1.2;
            
            while(mass < 120)
            {
                mass *= changing;
                day++;                
            }
            
            Console.WriteLine($"В {day} день");
        }
    }
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота