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

Дана матрица, содержащая n строк и m столбцов. Выполните транспонирование данной матрицы относительно главной диагонали.

Транспонирование матрицы – это симметрия элементов матрицы относительно главной или побочной диагонали.
Язык Питон

👇
Открыть все ответы
Ответ:
Дракон2323
Дракон2323
09.09.2020

Самая тяжелая профессия - быть человеком. Это действительно, самая тяжелая профессия, так как не каждый может быть им. Человеком не появляются - им становятся.

Человеком может стать каждый. Необходимо только выучиться им быть: вырасти, набратся опыта пожилым, а так же и сверстникам, и остальным. Оборонять слабых. Попытаться прожить жизнь, без вредных повадок. Не дерзить, почитать старших, почитать суждения иных, слушать, созидать и тому сходственное.

Я размышляю, меньше всего шансов стать человеком у тех, кто делает все напротив вышесказанному. Я встречал малюсенько истинных людей, их вообщем то, мало осталось, но время все меняет. Меняет окружающую среду, меняет технологии, меняет и людей.

Стать человеком, могут все без исключения, основное поверить, и не лениться.

4,8(79 оценок)
Ответ:
muratowaasya
muratowaasya
09.09.2020
1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.
4,6(52 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ