41)Создать новую таблицу 42) Д) 43)Правка - Удалить запись. 50) Параметры. 53)Выводится диалоговое окно с приглашением ввести параметр для условия на отбор записей. 56)Изменяются значения в полях определенных записей. 57)Создается таблица с данными, соответствующими определенным условиям. 62)Автоматической вставки последовательных или случайных чисел в качестве номера новой записи. 65)Во вкладке Режим таблиц – выбрать Вставить 66)Разные имена, но одинаковый тип данных. 69)Для отбора записей, данные в которых соответствуют определенным условиям. 70)Е) 71)Для создания контрольного переключателя.
Вариант №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.
42) Д)
43)Правка - Удалить запись.
50) Параметры.
53)Выводится диалоговое окно с приглашением ввести параметр для условия на отбор записей.
56)Изменяются значения в полях определенных записей.
57)Создается таблица с данными, соответствующими определенным условиям.
62)Автоматической вставки последовательных или случайных чисел в качестве номера новой записи.
65)Во вкладке Режим таблиц – выбрать Вставить
66)Разные имена, но одинаковый тип данных.
69)Для отбора записей, данные в которых соответствуют определенным условиям.
70)Е)
71)Для создания контрольного переключателя.