работы в Microsoft Access 1. Назовите существующие типы БД. Дайте их понятия.
2. Создать базу данных под именем «ИТ_РКР_группа_Фамилия».
Задание.
- создайте таблицу «Контакт» с полями: Код, Фамилия, Имя заполните (не менее 10 записей;
- создайте таблицу «События» в режиме «Конструктор» с полями: Дата, Событие, Код_контакта, Код (Ключевое поле);
- свяжите эти таблицы между собой используя мастер подстановки;
- создайте запрос по замене данных (записи за март переписать на апрель), запрос пока не выполнять;
- создайте форму «Ввод событий» и заполните таблицу «События»;
- в форме создайте кнопку «Замена» и при её выполните «запрос», созданный выше.
ответ:Вариант №1 (не совсем удачный, как было отмечено в комментариях).
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var n,i,m:integer;
flag:boolean;
begin
readln(n);
flag:=false;
if (n mod 2<>0)then i:=n-1 else i:=n;
while i>0 do begin
if power(2,i)<=n then begin
write(power(2,i),' '); flag:=true;
end;
i:=i-2;
end;
if not flag then writeln(0);
end.
Тест №1
1025
1024 256 64 16 4
Тест №2
1
0
Вариант №2
var a,i,n: integer;
begin
a:=1;readln(n);
i:=trunc(log2(n)); //получим степень двойки для n
//если i нечетное,
//то первое искомое число получаем путем сдвига влево на i-1 в
//двоичном представлении числа иначе сдвиг на i
if (i mod 2)=1 then a:=a shl(i-1) else a:=a shl i;
//далее получаем числа сдвигая вправо на 2 разряда
//в двоичном представлении числа
while a>=2 do begin
write(a,' ');
a:=a shr 2;
end;
end.
Тестовое решение:
2147483647
1073741824 268435456 67108864 16777216 4194304 1048576 262144 65536 16384 4096 1024 256 64 16 4