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

Как в ворде в кругах эйлера венна сделать запись

👇
Увидеть ответ
Ответ:
yanasmailik
yanasmailik
29.01.2020
1.Нажимаете "вставить"
2.Выбираете " надпись"
и пишите, что вам нужно ...
4,8(67 оценок)
Ответ:
pomxic
pomxic
29.01.2020
 заходишьв встаку заходишь в фигуры и ищешь круги и делаешь схему которая нужна
4,6(6 оценок)
Открыть все ответы
Ответ:
илья33567б0
илья33567б0
29.01.2020
Результат работы и листинг программы в приложениях.
Написано в 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
29.01.2020
Результат работы и листинг программы в приложениях.
Написано в 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 оценок)
Это интересно:
И
Как стать пресс-агентом: советы от профессионалов...
О
Как выспаться и учиться всю ночь...
К
Как отправить личное сообщение в Instagram...
П
Как приготовить угощения для лошади: рецепты и советы...
К
Как сохранить фото на Macbook: простые способы...
К
Как правильно жарить курицу: секреты и рекомендации...
В
Как прийти в себя после разрыва отношений...
М
Мир-работы
10.10.2021
Как стать дрессировщиком дельфинов: руководство для начинающих...
Х
Как сшить жилетку: подробный мастер-класс...
В
Как привести девушку домой на первом свидании: советы и рекомендации...
Новые ответы от MOGZ: Информатика
Galina1960
Galina1960
14.09.2020
Задача в пайтоне: Знайти суму всіх непарних двозначних чисел.(користуючись Whle )...
princessa2016
princessa2016
31.05.2023
1. Раскройте социальный и экологический аспекты информационной бе-зопасности. 2. Чем обусловлена актуальность в современном обществе проблемы ин-формационно-психологической...
azs194karelin
azs194karelin
27.02.2022
Дана линейная таблица A[1 : N]. Найти такой индекс i, что a[i] = x....
VERLIA
VERLIA
11.01.2022
Построить таблицы истинности​...
BOT1111111
BOT1111111
03.09.2021
Решите инфу надо 1. 57 превести из десятичной системы в 16 с.с. 2. АЕF и 1А78 перевести из 16 с.с. в десятичную с.с. 3. Выполнить сложение и вычитание 1789 +- А5 ВС556+-...
opalinskayavik
opalinskayavik
28.07.2021
Система счисления, в которой значение каждой цифры числа зависит от того, в каком месте (позиции или разряде) она записана — 1.римская 2.позиционная 3.алфавитная 4.непозиционная...
samusev3
samusev3
08.04.2023
Сост. программу. вычислить сумму целых числе на отрезке [a, b], где a и b вводятся с клавиатуры. примечание: решить с использыванием цикла)...
orlovapolina14
orlovapolina14
08.04.2023
Какая из перечисленных программ не является im клиентом: qip r& q opera icq google talk...
KILKOlo
KILKOlo
08.04.2023
Компьютер подключеный к интернету всегда имеет 1)ip -адрес 2) web-страничку 3)адрес email 4)почтовый адрес 5)доменное имя верхнего уровня...
Kto6to
Kto6to
08.04.2023
Загадка три слогав слове.первый слог- большой снеговика кусок. осуществляет слог второй слоны, придя на водопой. а третий слог зовётся так, как прежде звался твёрдый...

MOGZ ответил

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