Составил программу под : даны два натуральных числа m и n проверить есть ли в записи числа m цифры числа n, но на экран не выводится ответ, найти ошибку. var n,m,n1: integer; f: boolean; begin readln (n,m); f: =false; while n> 0 do begin n1: =n; while n1> 0 do begin if m mod 10=n1 mod 10 then f: =true; n1: =n1 div 10; end; n1: =n1 div 10; end; if f=true then write('да') else writeln ('нет'); end.

формационная система военного округа

Военные части округа расквартированы по различным местам дислокации, причем в одном месте могут располагаться несколько частей. Каждая воинская часть состоит из рот, роты из взводов, взводы из отделений, в свою очередь воинские части объединяются в дивизии, корпуса или бригады, а те в армии. Военный округ представлен офицерским составом (генералы, полковники, подполковники, майоры, капитаны, лейтенанты) и рядовым и сержантским составом (старшины, сержанты, прапорщики, ефрейторы, рядовые). Каждая из перечисленных категорий военнослужащих может иметь характеристики, присущие только этой категории: для генералов это может быть дата окончания академии, дата присвоения генеральского звания и т.д. Каждое из подразделений имеет командира, причем военнослужащие офицерского состава могут командовать любым из вышеперечисленных подразделений, а военнослужащие рядового и сержантского состава только взводом и отделением. Все военнослужащие имеют одну или несколько воинских специальностей.

Каждой воинской части придана боевая и транспортная техника: БМП, тягачи, автотранспорт и пр. и вооружение: карабины, автоматическое оружие, артиллерия, ракетное вооружение и т.д. Каждая из перечисленных категорий боевой техники и вооружения также имеет специфические, присущие только ей атрибуты и по каждой категории может быть несколько видов техники и вооружения. Инфраструктура военной части представлена набором сооружений (сооружение ©1, сооружение ©2 . . .), некоторые из которых предназначены для дислокации подразделений части.

Виды запросов в информационной системе:

Получить перечень всех частей военного округа, указанной армии, дивизии, корпуса и их командиров.

Получить данные по офицерскому составу в целом и по офицерскому составу указанного звания всех частей военного округа, отдельной армии, дивизии, корпуса, военной части.

Получить данные по рядовому и сержантскому составу в целом и с учетом указанного звания всех частей военного округа, отдельной армии, дивизии, корпуса, военной части.

Получить перечень мест дислокации всех частей военного округа, отдельной армии, дивизии, корпуса, военной части.

Получить данные о наличии боевой технике в целом и с учетом указанной категории или вида во всех частях военного округа, в отдельной армии, дивизии, корпусе, военной части.

Получить перечень сооружений указанной военной части, перечень сооружений, где дислоцировано более одного подразделения, где недислоцировано ни одного подразделения.

Получить перечень военных частей, в которых число единиц указанного вида боевой техники больше 5 (нет указанной боевой техники).

Получить данные о наличии вооружения в целом и с учетом указанной категории или вида во всех частях военного округа, в отдельной армии, дивизии, корпусе, военной части.

Получить перечень военных специальностей, по которым в округе, в отдельной армии, дивизии, корпусе, военной части более пяти специалистов (нет специалистов).

Получить перечень военнослужащих указанной специальности в округе, в отдельной армии, дивизии, корпусе, военной части, в указанном подразделении некоторой военной части.

Получить перечень военных частей, в которых число единиц указанного вида вооружения больше 10 (нет указанного вооружения).

Получить данные об армии, дивизии, корпусе, в которые входит больше всего (меньше всего) военных частей.

0

#include <iostream>

#include <vector>

using namespace std;

int main()

{

   int t, n, min;

   cin >> t >> n;

   int a[n];

   for (int i = 0; i < n; ++i){

       int mark;

       cin >> mark;

       a[i] = mark;

   }

   for (int i = -t; i <= t; ++i){

       cout << i << ": ";

       for (int j = 0; j < n; ++j)

           if(a[j] == i)cout << j + 1 << " ";

       cout << endl;

   }

   return 0;

}

Объяснение:

не знаю, что тут объяснять, вроде все просто.

P.s. Если , дайте , лучший ответ и жмякните на " ". Это мотивирует продолжать давать ответы.