Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
DAVIDUIOP
04.04.2022 13:38 •
Информатика
Задача грибы даю. Условие на картинке и обстановка тоже.
👇
Увидеть ответ
Открыть все ответы
Ответ:
илья33567б0
04.04.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.
4,5
(80 оценок)
Ответ:
yananesteshl
04.04.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.
4,6
(50 оценок)
Это интересно:
С
Семейная-жизнь
02.02.2020
Как показать почтение умершему знакомому...
К
Кулинария-и-гостеприимство
24.10.2021
Как законсервировать томатный соус...
03.04.2021
Как вернуть бывшего парня (для девушек-подростков)...
М
Мир-работы
29.12.2021
Как успешно пройти тестирование при приеме на работу...
К
Компьютеры-и-электроника
29.01.2023
О преобразовании файлов ODT в DOC и почему это важно...
Д
Дом-и-сад
16.05.2021
Как избавиться от пятен после постельных клопов...
М
Мир-работы
22.03.2022
Как эффективно управлять складом: польза и преимущества...
П
Питомцы-и-животные
11.03.2022
Хочу хомяка! Как убедить родителей купить домашнего питомца...
К
Компьютеры-и-электроника
23.05.2020
Как удалить файлы Только для чтения без проблем...
К
Компьютеры-и-электроника
02.04.2023
Как сделать, чтобы ваш блог отображался в начале списка результатов поиска...
Новые ответы от MOGZ: Информатика
ketikosti
04.09.2021
В следующих примерах укажи источник и приемник информации: ученый рассматривает в телескоп звезду источник — , приемник — . вывешен знак, запрещающий проезд по улице...
Makaezhik02
28.09.2021
Группа элементов управления во вкладке Ссылки в MSWord, которые позволяют управлять списком не Литературы. ОА) Ссылки и списки литературы. В) Сноски, Ос) Оглавление....
Mallony
30.09.2020
1)современные информационные носители 2)инструмент графического редактора 3)можно ли редактировать уже созданные картинки используя программу paint? ...
8976Феня
20.06.2020
Внекоторой местности соединение с сетью интернет возможно только через спутник. при этом максимальная длительность однократного непрерывного сеанса связи (время видимости...
тимур370
27.05.2020
На ферме установлены следующие расценки: бык стоит 25 000р., корова - 16 000р., телёнок - 2000р.. составьте алгоритм, позволяющий найти все варианты покупки на этой...
GasanDJ
14.07.2020
Дано слово w. составьте подпрограмму -функцию, которая преобразует слово w в слово v, содержащее те же буквы ( и в том же количестве), что и слово w, но расположенные...
ленок216
05.05.2022
Для древних людей высказывание земля плоская было истинным...
lizench
15.07.2022
ответ на вопросы по информатики: 1. назовите две формы познания мира. примеры.2 назовите виды логического познания. что означает понятие компьютер ?...
dima102603
02.12.2020
Графическое изображение занимает 2,5 мбайта,глубина цвета 16 бит, размер изображения 640 на 480 пикселей. определите количество страниц, которое можно использовать...
13372288
02.12.2020
Вкакой системе счисления за числом 3244 следует число 3300?...
MOGZ ответил
6 ACTIVATE Prepare a new dialogue with a part- ner. Talk about...
Укажите придаточную и главную часть предложения - сложноподчиненное....
Известны функция полезности потребителя = ( − 2)( + 4), его бюджет...
Развернутый план сочинения Обломов и Штольц. I. Принцип антитезы...
Напишите молекулярное, полное ионное и сокращенное ионное уравнение...
Найдите значение выражения:...
Упростите: 3√8+√2-3√18+(2-√3)(2+√3)...
Техническое олово подвергается коррозии в растворе хлорида натрия...
Какие лаплатские страны существуют в южной америке...
Укажи невірно складену формулу: Na O. MgO Сl2 О7 Запиши цю формулу...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
Написано в 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.