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

Что является информацией для компьютера? оч

👇
Увидеть ответ
Ответ:
Диана9989
Диана9989
30.09.2022
Данные (в виде 0 и 1 - сильный или слабый электрический сигнал)
4,8(37 оценок)
Открыть все ответы
Ответ:
илья33567б0
илья33567б0
30.09.2022
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.

----------------------------

PROGRAM A20;

CONST
    max = 100;
TYPE
    matrix = array[1..max,1..max]of shortint;
VAR
    ar:matrix;
    num:byte;
    i,j:byte;
    a,b,c:byte;
    q:boolean;

BEGIN
  repeat
  //  num := 5;
    write('Введите размер матрицы n=');
    readln(num);
   
    for i:=1 to num do begin
      for j:=1 to num do
        read(ar[i,j]);
    end;
 
    i:=1;//диагональ
    q:=true;
   
    while q and (i<num) do begin
      j:= i+1;//колонка и ряд
      while q and (j<=num) do begin
        a := ar[j,i];
        b := ar[i, j];
       
        if (ar[j,i] <> ar[i, j])
          then q:=false;
        j:=j+1;
      end;
      i:=i+1;
    end;
   
    if q then
      writeln('YES')
    else
      writeln('NO');
   
    write('Введите 1 чтобы продолжить. 0 чтобы завершить');
    readln(i)
  until(i=0); 
END.

Решать через pascalabc.net ( вам проверьте, является ли двумерный массив симметричным относительно г
4,5(80 оценок)
Ответ:
yananesteshl
yananesteshl
30.09.2022
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.

----------------------------

PROGRAM A20;

CONST
    max = 100;
TYPE
    matrix = array[1..max,1..max]of shortint;
VAR
    ar:matrix;
    num:byte;
    i,j:byte;
    a,b,c:byte;
    q:boolean;

BEGIN
  repeat
  //  num := 5;
    write('Введите размер матрицы n=');
    readln(num);
   
    for i:=1 to num do begin
      for j:=1 to num do
        read(ar[i,j]);
    end;
 
    i:=1;//диагональ
    q:=true;
   
    while q and (i<num) do begin
      j:= i+1;//колонка и ряд
      while q and (j<=num) do begin
        a := ar[j,i];
        b := ar[i, j];
       
        if (ar[j,i] <> ar[i, j])
          then q:=false;
        j:=j+1;
      end;
      i:=i+1;
    end;
   
    if q then
      writeln('YES')
    else
      writeln('NO');
   
    write('Введите 1 чтобы продолжить. 0 чтобы завершить');
    readln(i)
  until(i=0); 
END.

Решать через pascalabc.net ( вам проверьте, является ли двумерный массив симметричным относительно г
4,6(50 оценок)
Это интересно:
И
Колыбель для кошки: правила игры и советы для начинающих...
Х
Как легко стать ниндзя: советы от профессионалов...
Х
Практические советы: Как нарисовать двигающийся паркет мозаику...
К
Как исправить застрявший пиксель на ЖК–мониторе?...
К
Как приготовить Джелло печенья: легкий и вкусный десерт для всей семьи...
Д
Дом-и-сад
17.11.2021
Как открыть окно, которое заклинило: советы и инструкции...
З
Здоровье
25.01.2023
Как оправиться от плохого сна...
К
Простой и вкусный рецепт: как приготовить жаркое из оленины в мультиварке...
К
Секреты настройки Safari: как настроить основные параметры...
К
Как сушить грецкие орехи: советы и рекомендации...
Новые ответы от MOGZ: Информатика
catnoir227
catnoir227
23.03.2021
Sketchup программасы иске косу...
Foxy4152
Foxy4152
12.03.2020
1 Дано целое число А. Если значение А 0, то необходимо увеличить его на единицу. Разработать схему алгоритма для решения этой задачи. 2 Дано целое число А. Если значение А 0, то необходимо...
rassvetmoydrug
rassvetmoydrug
17.10.2020
Все системы счисления делятся на две группы: Выберите один ответ: a. римские и арабские b. двоичные и десятичные c. целые и дробные d. позиционные и непозиционные...
юсик17
юсик17
30.04.2023
Информация, представленная с использованием специальных символов и букв языков разных стран. ​...
Мафаняяя
Мафаняяя
27.04.2021
1что такое модели 2 что такое моделирование 3 что такое формализация 4 что является объектом моделирования для топографической карты местности 5 какова цель создания информационной...
Adamson9
Adamson9
25.12.2020
Надо написать програму на блакноте...
Bohdanka999
Bohdanka999
14.10.2020
Составьте алгоритм, содержащий элементы всех трех ти- пов. Тему придумайте самостоятельно. Опишите алгоритм словесно и с блок-схемы....
akowa05
akowa05
24.07.2022
Контрольний твір на тему Як мумі тролі ставилися до природи...
аладик2
аладик2
29.05.2022
Нужен сейчас ответ, заранее...
AzaLin1
AzaLin1
18.01.2020
решить арифметическую прогрессию......

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ