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

Нужно сделать работу в программе Excel


Нужно сделать работу в программе Excel

👇
Увидеть ответ
Ответ:
hadisvv
hadisvv
12.02.2022

сори я не знаю

Объяснение:

4,8(67 оценок)
Открыть все ответы
Ответ:
илья33567б0
илья33567б0
12.02.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
12.02.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 оценок)
Это интересно:
02.12.2021
Как распознавать СДВГ у взрослых: симптомы и диагностика...
Х
Как начать бизнес по производству самодельного мыла...
Ф
Как выбрать нотариуса для распределения наследуемого имущества...
К
Как импортировать контакты в WhatsApp на Android-устройстве: инструкция...
К
Как создать игру с помощью Game Maker 7.0 Lite...
К
Как сделать гуакамоле: рецепт и советы от профессионалов...
Ф
Как получить бесплатные вещи без какого-либо мошенничества: советы и рекомендации...
С
Как блокировать удар: советы от профессионалов для самозащиты...
01.10.2020
Как встречаться с парнем из другой школы: советы и техники...
З
Здоровье
06.07.2021
Как повысить либидо: простые способы улучшения сексуальной жизни...
Новые ответы от MOGZ: Информатика
артемий1456
артемий1456
09.01.2021
составить программу в паскаль abc - математический маятник, качающийся из стороны в сторону и постепенно затухает....
jfksbsj
jfksbsj
30.08.2021
Дан двумерный массив(4*5) написать программу, которая определит кол-во четных элементов двумерного массива. заполонить с клавиатуры....
ichmaelz
ichmaelz
29.05.2023
Злой экзаменатор никогда не ставит пятерок по информатике. по причине своей зловредности он заранее определил количество отметок каждого вида и произвольно расставил их абитуриентам....
apivo
apivo
29.05.2023
1)через какую систему графики осуществляется? 2)как называются небольшие программы, которые разработаны для распространения от одного компьютера к другому и вмешательства...
мир276
мир276
29.05.2023
Выборка записей из таблицы соответствующих заданному условию...
Аня3885
Аня3885
06.01.2023
С клавиатуры вводится последовательность чисел. количество чисел неизвестно. ввод чисел завершается поступлением с клавиатуры нуля. напишите программу, которая считает количество...
dashabd1
dashabd1
21.07.2022
Объявить структуру с именем СОТРУДНИК. Структура должна хранить данные о сотрудниках фирмы: ФИО сотрудника; его год рождения; должность; информацию о размере его зарплаты....
asanovatoma1
asanovatoma1
20.11.2022
Важная особенность мультимедиа технологии является: а) оптимизация б) интерактивность в) анимация г) многозадачность Заранее ! Умоляю, ответьте!...
оаилпаидшп
Якого значення набуде змінна х після виконання у=3 z=y+1 x=y+z *...
kitmyfaded
kitmyfaded
14.04.2020
Какой вопрос имеет блоку умовы​...

MOGZ ответил

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