Вопросы кс 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. нужна

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

KOTIK22811

11.09.2020 08:37

Найдите наименьшее натуральное число, у которого ровно 32 делителя (включая 1 и само число 32). например, у числа 6 четыре делителя: 1, 2, 3, 6. в качестве ответа...

sheealice

22.11.2022 20:24

4. Який оператор реалізує дію: Якщо А – від ємне число, змінити його знак на протилежний.Виберіть декілька з 4 варіантів відповіді:1) If A 0 Then A:= Abs(А);2) If...

ВИТ21

03.09.2021 08:21

Створити програму для сортування значень масиву. Довжина масиву 5 елементів. Елементами масиву є випадкові числа. Наприклад [ 5, 7, 4, 2, 3] Програма повинна впорядкувати...

Sweet572

17.05.2021 23:25

Програмирую в паскале. требуются идеи для создания программ. !...

ляляля06

12.01.2020 13:36

даны две переменные вещественного типа: a, b. перераспределить значения данных переменных так, чтобы в a оказалось меньшее из значений, а в b — большее. вывести новые...

буслай

02.05.2023 09:32

Запиши названия окон, в которых отображаются следующие объекты.AbbyAirplaneAmonAnina Hip-HopAZ Hip-HopBallBall-SoccerBallerina...

НастяПи

26.05.2021 02:07

Используя метод деления на 2 Переведите из десятичной системы счисления в двоичную следующие числа...

Ujwy

11.07.2021 18:04

Байланыс арнасы арқылы 1 минут ішінде көлемі 480 Кбайт болатын файл жөнелтілді. Арнаның өткізу қабілетін анықта...

Dasha7011

23.09.2021 09:08

Запишите представление указанных ниже целых чисел в памяти компьютера в 16-битовом представлении и запишите их в двоичной и шестнадцатеричной системах счисления:...

Новичок301117

26.05.2022 03:55

яких правил треба дотримуватися під час уведення формул???В Exel...

Ответ:

succura

30.03.2023 19:39

Const
n=10;

type
MyArr=array[1..10] of integer;

var ar:MyArr;
ar2:MyArr;
i,k:integer;

procedure SortMin(var a: MyArr;n:Integer);
var i,j,x:integer;
begin;
for I:=1 to n do
for j:=1 to n-1 do
if a[j]<a[j+1] then
begin
x:=a[j+1];
a[j+1]:=a[j];
a[j]:=x;
end;
end;

begin;
randomize;
k:=0;
writeln('First array:');
for i:=1 to 10 do
begin;
ar[i]:=random(100);
write(ar[i]:4);
if (ar[i]>10) and (ar[i] mod 3=0) then
begin;
inc(k);
ar2[k]:=ar[i];
end;
end;
if k=0 then
begin;
writeln('Нет подходящих элементов');
exit;
end;
SortMin(ar2,k);
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.

0,0(0 оценок)

Ответ:

Щплкуовощлл

09.07.2022 19:27

Function ds(ByVal n As Integer) As Integer
    'Сумма цифр в числе n
    Dim s As Integer
    s = 0
    Do While n <> 0
        s = s + n Mod 10
        n = Int(n / 10)
    Loop
    ds = s
End Function

Function IsGood(n As Integer) As Boolean
    'Сохраняется ли сумма цифр при умножении числа на 2,3,..9 ?
    Dim etalon As Integer, k As Integer
    etalon = ds(n)
    IsGood = True
    k = 2
    Do While IsGood And k < 10
        IsGood = (ds(n * k) = etalon)
        k = k + 1
    Loop
End Function

Sub aaa()
    Dim i As Integer, s As String
    s = ""
    For i = 10 To 99
        If IsGood(i) Then s = s + Str(i)
    Next i
    MsgBox s
End Sub

Тестовое решение:
18 45 90 99

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку