М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
rkbsiti
rkbsiti
15.09.2022 17:50 •  Информатика

Решить в пайтоне.
можете прислать скрин , я вообще не шарю как это делать


Решить в пайтоне. можете прислать скрин , я вообще не шарю как это делать

👇
Ответ:
jasmin301
jasmin301
15.09.2022

#a

x = 0.6

y = -0.2

rez = (4*x**2-y**2)**2/((2*x-y)**2)

print(rez)

x = -2

y = 3

rez = 2 * x**5 + (x+2*y)**3 + y**2

print(rez)

a = 1.1

b = 0.1

rez = ((1+b)**2 - (a-1)**2)**3 - (a+b)**2

print(rez)

m = 1.3

n = 2.5

rez = (2*m-n)**2 - (4*m**2+n**2-4*m*n)

print(rez)

rez = ((3**10)**4 * 3**7) / ((3**15)**2)

print(rez)

#е)

rez = (3**11 * (3**4)**5) / (3**21 * 3**3)

print(rez)


Решить в пайтоне. можете прислать скрин , я вообще не шарю как это делать
4,4(37 оценок)
Открыть все ответы
Ответ:
kazimirova2009
kazimirova2009
15.09.2022
Var
  f: text;
  i, j, n, n1: integer;
  matrix: array[,] of real;
begin
  assign(f, 'informat8.txt');
  reset(f);
  //найдём количество строк в матрице
  while not eof(f) do
   begin
    readln(f);
    inc(n);
  end;
  writeln('исходная матрица размерности ', n, 'x', n);
  //инициализируем массив (размерность узнали выше)
  matrix := new real[n, n];
  reset(f);
  // далее работаем с матрицей размерности [0..n-1] (инициализация происходит, начиная с 0)
  for i := 0 to n - 1 do
  begin
    for j := 0 to n - 1 do
    begin
      read(f, matrix[i, j]);
      write(matrix[i, j]:8:2);
    end;
    readln(f);
    writeln;
  end;
  writeln;
  n1 := 0;
  for i := 0 to n - 1 do
    for j := 0 to n - 1 do
      if matrix[i, j] < 0 then inc(n1);
  if n1 > round(n * n / 2) then
  begin
    writeln('Отрицательных элементов больше половины');
    //удваиваем элементы в чётных строках
    for i := 0 to n - 1 do
    begin
      if odd(i) then begin
        for j := 0 to n - 1 do
           matrix[i, j] := matrix[i, j] * 2;
      end;
    end;
  end else
  begin
    writeln('Отрицательных элементов меньше половины или ровно половина');
    //удваиваем элементы последнего столбца
    for i := 0 to n - 1 do
      matrix[i, n - 1] := matrix[i, n - 1] * 2;
  end;
    writeln('результирующая матрица');
  for i := 0 to n - 1 do  begin
    for j := 0 to n - 1 do
      write(matrix[i, j]:8:2);
    writeln;
  end;
end.

Результат работы:


Написать программу в паскаль или исправить ошибку в моей программе. в матрице имеются как положитель
4,6(3 оценок)
Ответ:
никич43
никич43
15.09.2022
Чтобы найти объем доп. сведений на одного пользователя, нужно сначала найти объем пароля.

Мощность алфавита равна 8, это значит, что на один символ в пароле требуется минимум 3 бита, т.к. 2^3=8

Длина пароля равна 15, то есть его объем будет равен 15*3=45 бит
Пароль кодируется в байтах, 45:8=6 байт (пяти байт недостаточно, округляем в большую сторону).

На 20 пользователей выделено 320 байт, значит на одного выделено 320:20=16 байт.
Из этих 16 байт 6 байт приходится на пароль, значит на дополнительные сведения выделено 16-6=10 байт.
4,6(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ