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

Визначити швидкість передачі інформації на рівні E3, якщо n=8, m=6, k=2.

Показать ответ
Ответ:
slavik116
slavik116
05.12.2022 05:28

N = int(input('Введите N (строки): '))

M = int(input('Введите M (столбцы): '))

array_1 = []

array_2 = []

array_3 = []

el = 0

for i in range(N):

   a = []

   if M % 2 == 0 and i > 0:

       if el == 0:

           el = 1

       else:

           el = 0

   for _ in range(M):

       a.append(el)

       if el == 0:

           el = 1

       else:

           el = 0

   array_1.append(a)

print('Задание 1.')

for row in array_1:

   for el in row:

       print(el, end = ' ')

   print()

for i in range(N):

   a = []

   for j in range(N):

       if j > i:

           a.append(0)

       else:

           a.append(1)

   array_2.append(a)

print()

print('Задание 2.')

for row in array_2:

   for el in row:

       print(el, end = ' ')

   print()

           

for i in range(N):

   a = []

   for j in range(N):

       if j < N - i - 1:

           a.append(0)

       else:

           a.append(1)

   array_3.append(a)

print()

print('Задание 3.')

for row in array_3:

   for el in row:

       print(el, end = ' ')

   print()

0,0(0 оценок)
Ответ:
dauletkulova
dauletkulova
05.12.2022 05:28
1.
var
a:array[1..5,1..5] of integer;
i,j,sum,min,n:Integer;
begin
min:=25;
for i:=1 to 5 do
begin
Writeln('Введите места ', i,' спортсмена');
for j:=1 to 5 do
Read(a[i,j]);
end;

for i:=1 to 5 do
begin
for j:=1 to 5 do
sum:=sum+a[i,j];
if sum<min then
begin
min:=sum;
n:=i;
sum:=0;
end;
end;
Writeln(n, ' спортсмен лучший');
end.

2.
var
a:array[1..20,1..20] of integer;
sum:array[1..20] of integer;
i,j,n,k:integer;
begin
Writeln('Введите количество команд');
Readln(n);
For i:=1 to n do
for j:=1 to n do
if i = j then a[i,j]:=0 else
begin
Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');
Read(a[i,j]);
end;
For i:=1 to n do
for j:=1 to n do
sum[i]:= sum[i]+ a[i,j];

for i:=1 to n do
if sum[i]>(3*(n-1)/2) then k:=k+1;

Writeln(k ,' команд(а,ы) имеют больше побед, чем поражений');
end.

3.
var
a:array[1..20,1..20] of integer;
sum:array[1..20] of integer;
i,j,n:integer;
begin
Writeln('Введите количество команд');
Readln(n);
For i:=1 to n do
for j:=1 to n do
if i = j then a[i,j]:=0 else
begin
Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');
Read(a[i,j]);
end;
For i:=1 to n do
for j:=1 to n do
sum[i]:= sum[i]+ a[i,j];

for i:=1 to n do
if sum[i] = 3*(n-1) then Write(i, ' ');
Write(' команд(а,ы чемпионат без поражений!');
end.

4.
var
a:array[1..20,1..20] of integer;
sum:array[1..20] of integer;
i,j,n,k:integer;
begin
Writeln('Введите количество команд');
Readln(n);
For i:=1 to n do
for j:=1 to n do
if i = j then a[i,j]:=0 else
begin
Writeln('Введите количество очков, заработаных ', i ,' командой в матче поротив ', j, ' команды');
Read(a[i,j]);
end;
For i:=1 to n do
for j:=1 to n do
if a[i,j]<>1 then
sum[i]:= sum[i]+ a[i,j];

for i:=1 to n do
if sum[i] > (3*(n-1))/2 then k:=k+1;
Write(k,' команд выиграли более половину игр');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота