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

Вопросы кс 1. адресация в ip сетях. 2. алгоритм динамического назначения адресов в dhcp. 3. беспроводная передача данных. 4. интеллектуальные функции коммутаторов. 5. использование масок при ip-адресации. 6. коммутация пакетов и каналов. 7. коммутируемые локальные сети. 8. компоненты сети 9. маршрутизация с использованием масок. 10. масштабируемая система маршрутизации. 11. методы обеспечения качества обслуживания. 12. направление модернизации стека тсрлр. 13. обнаружение и коррекция ошибок сети. 14. основы проектирования структурированных кабельных систем (скс) 15. особые адреса. 16. отображение ip-адресов на локальные адреса. 17. построение магистральных линий связи 18. примеры заполнения таблиц маршрутизации. 19. примеры сетей и сетевые характеристики. 20. протокол ipу4. 21. протокол ipv6. 22. протокол rip 23. протоколь ospf 24. протоколы маршрутизации. 25. сетевые топологии. 26. система dns. 27. снижение нагрузки на маршрутизаторы. 28. совместное использование ресурсов компьютеров 29. стандартизация сетей. 30. стандартные стеки коммуникационных протоколов. 31. стек протоколов тср/р. 32. схема ip-маршрутизации. 33. типы и классификация сетей. 34. передача данных по линиям связи. 35. формат ip-пакета. 36. формат и классы ip-адресов. 37. характеристика модели osi.​ нужна

Показать ответ
Ответ:
EdinorogDog
EdinorogDog
10.12.2021 08:29
Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');
    
    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);
    
    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];
    
    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.
0,0(0 оценок)
Ответ:
бекзат2008
бекзат2008
14.06.2021 02:58

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота