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

Батальон на бмп имел численность 764 чел. во главе батальона стоял командир, которому подчинялись штаб и 5 рот: штабная и снабжения, минометная и 3 мотопехотные. рота штабная и снабжения состояла из и 3 взводов: штабного, связи и снабжения. в штабном взводе было 4 отделения: штабное, мотоциклистов, транспортное и разведывательное. во взводе связи было 3 отделения радиосвязи и 2 отделения проводной связи. во взводе снабжения было 4 отделения: материально-технического обеспечения, продовольственного снабжения, транспортное и санитарное. минометная рота состояла из , двух отделений передового наблюдения, отделения обеспечения и б расчетов 120-мм минометов. каждая мотопехотная рота (163 чел.) имела в своем составе 3 мотопехотных взвода по 48 чел. каждый взвод состоял из группы и 4 мотопехотных отделений по 10 чел. отделение делилось на две группы: первая - командир машины, наводчик-оператор (бмп "мардер" оснащалась 20-мм пушкой и двумя пулеметами) и механик-водитель; вторая - командир отделения, пулеметчик, гранатометчик, огнеметчик и 3 стрелка.

👇
Ответ:
Amirmusta
Amirmusta
23.03.2023
А в чем вопрос-то? а?
4,7(20 оценок)
Открыть все ответы
Ответ:
kiss123kiss
kiss123kiss
23.03.2023

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.

4,5(39 оценок)
Ответ:

program HelloWorld;

var a: array of integer;

var N, min, max, i, variable:integer;

begin

   min := 32767;

   max := 0;

   readln(N);

   for i := 0 to N do begin  

       readln(variable);

       if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

           max := variable;

       if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

           min := variable;

   end;

   if (max <> 0) and (min <> 32767) then

       writeln(min, ' ', max)

   else  

       writeln(-1);

end.

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