МОТОСТРЕЛКОВЫЙ БАТАЛЬОН АРМИИ СССР
В середине 70-х гг. мотострелковый батальон Советской Армии насчитывал 395 человек и имел следующую структуру. Во главе стоял командир батальона. Ему подчинялись управление, штаб, 3 мотострелковые роты, взвод связи, минометная батарея, противотанковый взвод, отделение технического обслуживания, взвод снабжения и батальонный медицинский пункт. В управление батальоном входили сам комбат, заместитель по политической части, заместитель по технической части и техник батальона. Штаб состоял из начальника штаба, начальника связи, инструктора-дозиметриста, писаря и водителя бронетранспортера. Начальник связи являлся командиром взвода связи (еще 12 чел.). Минометная батарея состояла из управления (10 чел.) и двух взводов по 20 чел., в каждом — по 3 120-мм миномета. Противотанковый взвод состоял из отделения станковых противотанковых гранатометов (8 чел., 2 гранатомета СПГ-9) и двух отделений противотанковых управляемых ракет (по 6 чел. и по 2 ПТУРС в отделении). Отделение технического обслуживания: командир отделения, водитель-автослесарь и старший механик. Взвод снабжения: командир взвода, его заместитель, хозяйственная часть (3 чел.) и автотранспортное отделение (4 чел.). Батальонный медицинский пункт: начальник пункта, шофер-санитар и 2 санитара. Мотострелковая рота состояла из управления (командир роты, заместитель по политической части, старшина роты), пулеметного отделения и 3 мотострелковых взводов. Пулеметное отделение состояло из командира отделения, водителя бронетранспортера и двух пулеметных расчетов, в каждом пулеметчик и пулеметчика. Мотострелковый взвод имел командира взвода, заместителя командира и 3 мотострелковых отделения. В каждом отделении: командир отделения, пулеметчик, гранатометчик гранатометчика, старший автоматчик, 3 автоматчика и водитель бронетранспортера.
Program Pr1;
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v{?} 1; {здесь либо пропущен знак либо v1-новая переменная не перечисленная в списке описания переменных}
end
else if i mod 2<>0 then v:=v 1;{здесь тоже самое}
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.
Фамилия - тип символьный, длина.. надо символы считать в таблица. Сколько букв в самой длинной фамилии, такая и длина. Если же таблица ещё только создается, то ставят приблизительно 15.
Имя - тип символьный. Длина.. смотри выше. Или считай буквы, если БД уже создана, или ставь приблизительно 10-15 (одно из начений)
Отчество - символьный
Дата рождения - тип - дата
Номер участника - символьный.
Адрес - символьный
Наличие хронических болезней (если да или нет) то логический тип
Дата последнего посещения врача - тип дата (если есть число, месяц, год, заданы в таблице), если стоит например 22 ноября то тип будет символьный
Придумать свою БД. Например, БД ваших CD дисков. Название диска - символьный. Дата покупки - тип дата. Дома он у вас сейчас или вы его одолжили другу - логический. И числовой тип, например стоимость диска. Всего - 4 поля с 4 разными типами