Разработать прикладное программное обеспечение деятель-ности отдела учета квартир бюро технической инвентаризации. в нашем городе 6000 зданий, в которых расположено 199 000 квартир. а помещений в этих квартирах – 1 500 000 шт. понятно, что эта не для microsoft access 2000. но, тем не менее, попробуйте реализовать ее, предусмотрев перевод базы данных на платформу microsoft sql server 2000. кадастровый номер здания является уникальным. используйте его в качестве простого первичного ключа таблицы зданий. можете работать и с составным первичным ключом (адресом здания), но в данном случае – это не лучший вариант объясните как это делается, я конечно в курсе как пользоваться программой, но техническим языком не владею, так что не понимаю

#include <iostream>

 

using namespace std;

 

int main()

{

   int startDia(0);

   int endDia(0);

   int suma(0);

 

   cout << "Введите начало диапазона : ";

   cin>> startDia;

   cout <<endl;

   cout << "Введите конец диапазона :" ;

   cin >> endDia;

 

   int i = startDia;

 

   while (i <= endDia)

   {

       if(i % 2 !=0)

       {

           cout <<i << " ";

           suma +=i;

       }

       i++;

 

   }

   cout <<"Сумма нечетных чисел c"<< startDia <<"по" << endDia << "= " << suma <<endl ;

   return 0 ;

}

1)

var i,n:integer; a:array[1..100]of integer;  

begin

write('Введите размер массива: '); readln(n);  

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;  

for i:=1 to n do write(a[ i]:8); writeln;  

for i:=n downto 1 do write(a[i]:8); writeln;  

writeln('Для выхода нажмите Enter'); readln  

end.

2)

var i,n:integer; a:array[1..100]of integer;  

begin

write('Введите размер массива: '); readln(n);  

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[ i]); readln;  

for i:=1 to n do if a[i]<0 then write(i:2,a[i]:8); writeln;  

writeln('Для выхода нажмите Enter'); readln  

end.

3)

var i,n:integer; a:array[1..100]of integer;  

begin

write('Введите размер массива: '); readln(n);  

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;  

for i:=1 to n do if not odd(i) then write(a[i]:8); writeln;  

writeln('Для выхода нажмите Enter'); readln  

end.

4)  

var i,n,s:integer; a:array[1..100]of integer;  

begin

write('Введите размер массива: '); readln(n);  

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;  

for i:=1 to n do write(a[i]:8); writeln;  

s:=0; for i:=1 to n do s:=s+a[i]; writeln('Sum=',s); ;  

writeln('Для выхода нажмите Enter'); readln  

end.