Поделитесь своими знаниями, ответьте на вопрос:
На основании выбранного варианта выполнить следующее: 1. Выполнить анализ предметной области исследуемой организации; 2. Описать основные сущности предметной области; 3. Расставить существующие связи между сущностями: самостоятельно добавить в каждую сущность первичные ключи и установить внешние ключи между сущностями; 4. Построить инфологическую модель базы данных организации; 5. Построить даталогическую модель базы данных организации. БД – информационная система военного округа. БД состоит из следующих таблиц: места дислокации, вид войск, части, роты, личный состав. Таблица вид войск имеет следующие атрибуты: название. Таблица места дислокации имеет следующие атрибуты: страна, город, адрес, занимаемая площадь. Таблица части имеет следующие атрибуты: номер части, место
USES CRT;
VAR A:array[1..100] of Longint;
s:integer;
x,i:Longint;
BEGIN
CLRSCR;
Repeat
Writeln('Введите 7-ми значное число');
Readln(x);
i:=x;
s:=0;
while i>0 do
begin
i:=i div 10;
s:=s+1;
end;
if s > 7 then Writeln('Вы ввели число больше');
if s < 7 then Writeln('Вы ввели число меньше');
Writeln;
until s=7;
for i:=1 to 7 do
begin
A[i]:=x mod 10;
x:=x div 10;
end;
for i:=1 to 7 do
Write(A[i],' ');
READLN;
END.