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

Поясните понятие архитектуры сети. 2. В каком случае используется одноранговая архитектура?
3. Что характерно для сетей с выделенным сервером?
4. Что такое топология?
5. Основные достоинства и недостатки топологии общая шина.
6. Основные достоинства и недостатки топологии кольцо.
7. Основные достоинства и недостатки топологии звезда.
8. Основные достоинства и недостатки ячеистой топологии.
9. В чем заключаются основные различия между активным и
пассивным деревом?
10. Приведите основные различия между полной и частичной
ячеистыми топологиями.
11. Поясните понятия «надежности» и «безопасности» компью-
терных сетей.
12. Назовите основные технические и эксплуатационные свойства
сетей.

Показать ответ
Ответ:
Shkolnikt
Shkolnikt
18.02.2021 16:59

program z1;
uses crt;
var a:array[1..10,1..15] of integer; {- описание массива}
i,j:byte;  {- описание переменных, служащих для заполнения массива и нахождения нечётного элемента} 
e:integer; {- переменная, хранящая значение первого нечётного}
begin
clrscr;
randomize;

{заполнение и вывод на экран массива}
for i:=1 to 10 do begin
for j:=1 to 15 do begin
a[i,j]:=random(1000)+1;
write(a[i,j]:5);
end;
writeln;
end;
writeln; {- отступ от массива}
for j:=1 to 15 do begin {- с первого по 15 столбик}
e:=0; {- обнуляем  переменную для нечётного элемента т.к. в каждом столбце он разный}
for i:=1 to 10 do {с первой по 10 элемент столбца}
if (e=0) and (odd(a[i,j])) then {- если переменная пока пуста и текущий элемент нечётный, то}
e:=a[i,j]; {- то переменной присвоить значение текущего элементна}
write(e:5); {- и вывести переменную на экран}
end;
readkey
end.

0,0(0 оценок)
Ответ:
жека0262
жека0262
10.02.2020 15:40
Пусть чисел в отрезке N штук.
тогда сумма подряд идущих чисел, начиная с х будет равна
Sum = Nx + N*(N-1)/2
здесь второе слагаемое - это частичная сумма арифметической прогрессии 0,1,2,3...N
Максимальное значение N будет при нулевом x
1/2 (N - 1) N = 1014
N^2/2 - N/2 - 1014 = 0
N = 1/2 - sqrt(8113)/2 - нехороший корень
N = 1/2 + sqrt(8113)/2 - а это правильный, равный 45,53
Максимальное значение x будет при N=1
x = 1014, это тривиальное решение
Перебирать будем по N, просто меньше перебора
Nx + N*(N-1)/2 = 1014
Nx = 1014 - N*(N-1)/2
x =  1014/N - (N-1)/2 = (2028 - N(N-1))/(2N)
и проверять x на целостность

var 
  x,n,counter:longint;
begin
 counter:=0;
  for n:=1 to 45 do
    if (2028 - N*(N-1))mod(2*N) = 0 then 
    begin
      inc(counter);
      x := (2028 - N*(N-1))div(2*N);
      writeln ('x=',x,' N=',n);
    end;
  writeln('Всего решений ',counter);
end.

а отрезков 6
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота