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

Переведите число 101111110 из двоичной системы счисления в десятичную систему счисления

👇
Открыть все ответы
Ответ:
Arkadysh
Arkadysh
04.07.2021
//Листинг программы и скриншот работы - в приложениях.
//Написано на PascalABC.NET но будет работать в простом Паскале

const
    max = 12;
var N,i,j:byte;
    sum:integer;
    ar:array[1..max, 1..max] of integer;

begin
  writeln('Вычислить сумму диагональных элементов квадратной матрицы');
  write('Введите размер матрицы N = ');
  readln(N);
 
  for i:=1 to N do begin
    for j:=1 to N do begin
      ar[i,j]:=random(-12,12);//любые числа
      write(ar[i,j]:6);
    end;
    writeln();
  end;
 
  sum:=0;
  for i:=1 to n do
    for j:=1 to n do
      if ( i = (n-j+1) ) or ( i = j ) then
        sum:=sum+ar[i,j];

  writeln('Сумма sum = ', sum);
end.

Написать программу которая вычисляет сумму диагональных элементов квадратной матрицы
4,7(55 оценок)
Ответ:
bilkosha2005
bilkosha2005
04.07.2021
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк (столбцов) в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var k:=0;
  for var i:=1 to n-1 do
    for var j:=n-i to n-1 do
      if a[i,j].IsEven then k+=1;
  Writeln('Количество четных элементов ниже побочной диагонали: ',k)
end.

Пример
Количество строк (столбцов) в матрице: 7
*** Исходная матрица ***
  90  57  58  49  91 -83  61
 -57  70  52  90  53 -22  89
 -90 -23  39 -88  28  16 -34
 -65 -19 -92 -49  77  11  79
 -37 -85  -5   6 -41 -75 -90
   1  62  24  92 -37  88  21
 -65 -47  48 -39 -46   6  38

Количество четных элементов ниже побочной диагонали: 11
4,4(12 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ