М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vitalii1962svet
vitalii1962svet
16.03.2020 01:08 •  Информатика

Составьте программу подсчета строк двухмерного массива А(N,M), в которых
имеется хотя бы один нулевой элемент.

Нужно, чтобы программа запустилась в PascalABC

Очень

👇
Открыть все ответы
Ответ:
asfandiyrova201
asfandiyrova201
16.03.2020

var

 a, b, g, s: integer;

begin

 readln(a, b);

 if a mod 2 = 0 then

 begin

   if (b - a) mod 2 = 0 then

   begin

     g := (b - a) div 2;

     s := a div 2 - g;

     write(s, ' ', g);

   end

   else

     write('-1 -1');

 end

 else

   write('-1 -1');

end.

Объяснение:

Обозначим количество страусов через s, количество жирафов через g.

Тогда 2s + 2g = a, 2s + 4g = b.

Вычитая из второго уравнения первое, получим 2g = b - a,

откуда g = (b - a) / 2, при этом (b - a) должно быть кратно 2.

Теперь найдем из первого уравнения s = a / 2 - g, при этом a должно быть кратным 2.

4,6(51 оценок)
Ответ:
rasimrasivi
rasimrasivi
16.03.2020

var

 a, b, g, s: integer;

begin

 readln(a, b);

 if a mod 2 = 0 then

 begin

   if (b - a) mod 2 = 0 then

   begin

     g := (b - a) div 2;

     s := a div 2 - g;

     write(s, ' ', g);

   end

   else

     write('-1 -1');

 end

 else

   write('-1 -1');

end.

Объяснение:

Обозначим количество страусов через s, количество жирафов через g.

Тогда 2s + 2g = a, 2s + 4g = b.

Вычитая из второго уравнения первое, получим 2g = b - a,

откуда g = (b - a) / 2, при этом (b - a) должно быть кратно 2.

Теперь найдем из первого уравнения s = a / 2 - g, при этом a должно быть кратным 2.

4,6(2 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ