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

Назови значение терминов вкусовая информация

👇
Увидеть ответ
Ответ:
8orzakt
8orzakt
11.10.2021
Вкусовая информация определяет есть вирусы или нету.
4,8(58 оценок)
Открыть все ответы
Ответ:
yananesteshl
yananesteshl
11.10.2021
Результат работы и листинг программы в приложениях.
Написано в 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 оценок)
Ответ:
илья33567б0
илья33567б0
11.10.2021
Результат работы и листинг программы в приложениях.
Написано в 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 оценок)
Это интересно:
С
Как замаскировать прыщик с помощью зеленого консилера: советы и рекомендации...
К
Секреты изменения списка близких друзей Facebook на iPhone и iPad...
К
Как добавить фон на веб-страницу: простые шаги, которые помогут улучшить визуальное восприятие...
С
10 простых способов быть привлекательной...
К
Как сделать GIF анимацию из видео в Photoshop CS5: шаг за шагом...
К
Как играть онлайн в Words with Friends...
К
Сэндвич с беконом: легкий рецепт на каждый день...
Д
Дом-и-сад
09.06.2020
Как отмыть губку: простые и эффективные способы...
К
Как убить Херобрина в Майнкрафт: практические советы от игроков...
К
Как сбросить иконку голосовой почты на телефоне Android...
Новые ответы от MOGZ: Информатика
lox54
lox54
05.11.2021
15 - 9 классыинформатика 20 некоторые сегменты сети интернет состоит из 1000 сайтов.поисковый сервер в автоматическом режиме составил таблицу ключевых слов для сайтов этого сегмента...
Kirillpakharenko
Kirillpakharenko
05.11.2021
Даны два целых числа: а и в. проверить истинное высказывание каждое из чисел а и в нечетное на с++...
Dasha6200411
Dasha6200411
27.04.2020
Если число, введенное с клавиатуры, четырехзначное и делится на 5, то выведите слово «success», а иначе — «failure» в важно!...
5класс75
5класс75
28.07.2021
10111 в двоичной системе счисления перевести в десятичную...
полина90602
полина90602
28.07.2021
Поменять местами минимальный и максимальный элементы массива размера 10 - c#...
iumpovavika85
iumpovavika85
20.07.2020
Какие действия с данными может выполнять компьютер?...
dejavu1337
dejavu1337
07.01.2023
Сколько бит информации содержит выражение 10: 2+24=29...
gubkina2003
gubkina2003
07.01.2023
Сколько школьных учебников ёмкостью 350 килобайта можно разместить на 4гигобайтов флешки большое от еденорожки...
Deloroza
Deloroza
07.01.2023
Вопрос на тему пользователь начал работу в каталоге работа 1 пользователь начал работу в каталоге работа 1. сначала он поднялся на один уровень вверх, затем спустился на один...
Dashamudrik123
Dashamudrik123
07.01.2023
Мама дала андрею s грн. на покупку n1 тетрадей в клеточку стоимостью v1 грн. за одну тетрадь и n2 ручек стоимостью v2 грн за одну ручку. на остаток денег андрей хочет купить...

MOGZ ответил

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