Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
vereshchako041
11.10.2020 22:50 •
Информатика
A) Какой результат выполнения x:= n mod 2 = 0. Если n =122
1)True
2)False
3) 2
4) 0
B) x:= n mod 2 = 0. Если n=123
)True
2)False
3) 2
4) 0
👇
Увидеть ответ
Открыть все ответы
Ответ:
илья33567б0
11.10.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.
4,5
(80 оценок)
Ответ:
yananesteshl
11.10.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.
4,6
(50 оценок)
Это интересно:
П
Питомцы-и-животные
23.03.2021
Как правильно обращаться с агрессивной кошкой...
К
Кулинария-и-гостеприимство
17.06.2022
Как приготовить вкусный русский салат...
К
Кулинария-и-гостеприимство
27.09.2021
Как правильно и быстро подготовить корень имбиря к приготовлению...
С
Стиль-и-уход-за-собой
11.01.2020
Как избавиться от зудящего ожога (светлая кожа)...
З
Здоровье
27.09.2021
Как улучшить сон...
О
Образование-и-коммуникации
11.10.2020
Как говорить по-фински: основные правила и рекомендации...
О
Образование-и-коммуникации
02.07.2021
Как построить пирамиду для школы: шаг за шагом руководство...
С
Стиль-и-уход-за-собой
16.06.2021
Как нарисовать дизайн ногтей Splatter...
К
Компьютеры-и-электроника
29.08.2022
Как быстро и легко изменить язык Google...
К
Компьютеры-и-электроника
05.08.2021
Секреты успешной презентации: Как создать эффективную презентацию в PowerPoint?...
Новые ответы от MOGZ: Информатика
zerg314
20.04.2020
Ребята во дворе решили поиграть в прятки. Чтобы выбрать ведущего, который будет искать, они решили воспользоваться считалкой. Считалка состоит из k слов и используется следующим...
Ogents007
24.12.2021
Нужна Скачивай на ноутбук hp драйвера Realtek Hp Но не появляется диспетчер Realtek Hp А ноут станови автоматически Realtek Audio поставить HD...
raistarasenko
03.02.2023
Создать нормализованную ER-диаграмму или схему базы данных в области Сдача лабораторных работ , использовав в модели следующую информацию: №_студента в журнале; ФИО студента;...
arseniykolesnikov
12.06.2020
Как изменить тип NAT 3 на тип NAT 2 или 1 на playstation 4?...
ekaterinaanta
12.11.2020
, Используя оператор выбора Switch, напишите программный код к следующему задания. Напишите код программы, который по номеру месяца выводит на экран название этого месяца (1-январь,...
Астар
23.03.2021
, Напишите программный код, используя операторы цикла для следующей задачи. S=2*4*6*8*10...
alisha15sherban
19.08.2022
, Прочитайте условие задачи. Напишите программный код. Дано целое число V-возраст человека. Вывести строку-описание возраста, соответствующей числу V (от 0-до 3 — «сидит дома»,...
АндрейЯсийчук
22.12.2020
я не могу решить этот ребус...
Саляриум
31.05.2020
4типи запитання my victories are due not only to my character and preparation загальне спеціальне альтернативне розділове...
ValeriaSalvatore
31.05.2020
1) (p-4)x+2p-4(x+p)=0 2) px+2(p+1)x+p+2=0 3) 3x-5(2x-1)=2x-1 решите ,буду блпгодарна)...
MOGZ ответил
Два горизонтальных цилиндрических трубопровода A и B содержат соответственно...
Эссе kids dream more than adults...
По рис. Определите равнодействующую силу...
В рассказе есть предложение: ...кастелянша встала да ушла в девичью . Что...
Задать 10 вопросов по картинке (Have you got any...? How much...? How many...?...
18. Қазақ тіліндегі қатаң дауыссыздарды тап? А) п.ф,к,қ,т,с,ш,щ,х, Б) p.,л,м,н,ң,й,у....
Бұл адам кім екенің кім біледі...
Сравнительный анализ внешней политики в 90-2000-е гг....
Алгебра, Квадратные неравенства - Нужна с 1 по 12 задание...
продолжение предыдущего вопроса...
Полный доступ к 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.