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

Как решить пример (x больше 6) умножить (x меньше 7) = 1

👇
Увидеть ответ
Ответ:
Ооггод
Ооггод
11.04.2021
(6*800)-(800:8)+2= 4702
6*800=4800
800:8=100
4800-100=4700
4700+2=4702
4,4(37 оценок)
Открыть все ответы
Ответ:
илья33567б0
илья33567б0
11.04.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 оценок)
Ответ:
yananesteshl
yananesteshl
11.04.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 оценок)
Это интересно:
31.01.2021
Как бороться со стрессом с помощью еды...
Х
Как просто и быстро сделать стильные шорты из старых джинсов: 5 шагов к идеальному летнему гардеробу...
М
Мир-работы
27.04.2021
5 способов не отвлекаться на Интернет во время работы...
К
Огурец - искусство нарезки...
С
Как легко и быстро растянуть обувь на каблуках?...
К
Как использовать конвекционную тостер-печь: настоящий гид для начинающих...
З
Здоровье
13.03.2023
10 уникальных советов о том, как помочь выздороветь близкому человеку...
Ф
Как эффективно вести учет дебиторской задолженности?...
02.09.2021
Как пережить плохую оценку: навыки управления эмоциями и продуктивной работы на ошибке...
К
Как быстро установить Qt SDK на Ubuntu Linux:...
Новые ответы от MOGZ: Информатика
Karumi1
Karumi1
05.10.2020
Я хотел скачать Shadow Fight 2 на телефон с сайта.Когда установил я зашел что бы его скачать и выдает Приложение не установлено пробовал уже перезагружать телефон а памяти...
nikita425
nikita425
14.08.2020
Написать программу на Паскале: В одномерном массиве целых чисел определить два наименьших элемента. Они могут быть как равны между собой (оба являться минимальными), так и...
Катюшкавасилек
Что такое пиксел короткий ответ, пожайлуста ​...
smetankaplaydop0c2u6
Доставал из пк озу, видюху и жесткий диск, вставлял в другой пк, затем вернул все на место и появилась след. проблема: Включаю пк, вентили крутятся, но на мониторе пишет “No...
Du13
Du13
21.02.2020
Задача 2 *. Написание математических выражений на Python Данный. Какое из этих выражений неверно в языке программирования написано? Исправляет ошибки. Математическое выражение...
дильназСпецназ
С клавиатуры вводится количество участников конкурса. Число должно быть меньше 100. Всем участникам присваивается порядковый номер, начиная с цифры 5. Найти суммы чётных и...
кирилл5775065421423
Исходное данное — трёхзначное число . Выполни для =184 следующий алгоритм. :=100:=100:=10:=++...
Arina1666
Arina1666
27.02.2022
Написать сценарий, по которому запрашивается имя пользователя и на экран выводится окно приветствия с текстом «Добрый день !»...
vika2007
vika2007
27.02.2022
Укажіть,яких учителів за до себе пан Журден а)учителя танців б) учителя музики в)учителя малювання г) учителя фехтування (даю 30 б.)​...
про783
про783
27.02.2022
После внедрения организационно-технического мероприятия годовой выпуск продукции составил 30 тыс. штук. Экономия по себестоимости единицы продукции 50 руб. Стоимость основного...

MOGZ ответил

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