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

По информатике
( b \leqslant 0)u > \: (b > 3)
найти ложные значения при b = 1 ; b=0; b=3; b=2 ​

👇
Увидеть ответ
Открыть все ответы
Ответ:
илья33567б0
илья33567б0
01.04.2023
Результат работы и листинг программы в приложениях.
Написано в 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
01.04.2023
Результат работы и листинг программы в приложениях.
Написано в 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 оценок)
Это интересно:
З
Здоровье
06.02.2023
Как избавиться от изжоги народными средствами: решение проблемы без лекарств...
М
Мир-работы
07.11.2022
Как разговаривать на рабочем месте: секреты эффективного коммуникативного процесса...
Х
Как обновить имидж куклы Барби...
19.04.2021
Как развивать позитивное отношение: советы и рекомендации...
К
Секреты замаринованной бамии: как сделать ее вкусной и полезной...
К
Как играть в PSP игры на Android с помощью приложения PPSSPP...
Б
Как выпустить микстейп: от выбора темы до промоушена...
Х
Как сделать тотемный столб: шаг за шагом...
Д
Дом-и-сад
19.07.2021
Как удалить пятна от дезодоранта с одежды: простые и эффективные способы...
С
Вегетарианство и беременность: секреты сбалансированности диеты...
Новые ответы от MOGZ: Информатика
Карина1111999
Карина1111999
15.08.2022
9*. Створіть електронну таблицю про океани Землі за наведеним зразком. Знай- діть в Інтернеті потрібні дані та заповніть ними таблицю. Збережіть електрон- ну книгу у...
МахаХей
МахаХей
28.03.2020
Составить вычисления значения функции y=1/x-3. Осуществить вывод значений вводимых исходных данных и результат вычисления функции. Программа PascalABC.NET...
ЦУКПРОЛ
ЦУКПРОЛ
07.11.2020
Дай ответ какие геометрические фигуры вы выбрали при подготовке проекта нового орнамента малююю...
zhienalinaadel
zhienalinaadel
03.04.2022
1) Какие функции робот «Часовой» не может выполнять? Почему? 2) Какие функции ты добавил бы к движению робота «Часовой»?...
vladiev
vladiev
03.10.2021
много Найдите записи соответствующие данным кодам программы....
Ольгаok
Ольгаok
28.02.2021
Изучите фрагмент программого код? Напишите комментарий к каждому выделенному фрагменту программы....
2Velial1
2Velial1
13.03.2020
Які значення можут набувати властивості кнопки Enabled і Visible?...
Dashakaef
Dashakaef
05.05.2021
Нужна ваша по программированию. ответьте на 1 вопрос Составьте программу вычисления среднего арифметического целых чисел из отрезка [-4; 15]. #include #include void...
lizakaraseva0
lizakaraseva0
05.05.2021
Организации присвоен следующий IP-адрес 200.200.5.2 .Требуется разделить эту сеть на 10 подсетей....
mihailsokolenk
mihailsokolenk
23.03.2023
На компе такая ошибка. Что делать;(?...

MOGZ ответил

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