Итоговые задания по разделу «Базы данных» 1 ЭТО. 1. Базы данных а) совокупность электронных таблиц и всего комплекса аппаратно- программных средств для их хранения; изменения и поиска информа- ции; для взаимодействия с пользователем; b) организованная совокупность данных, предназначенная для дли- тельного хранения во внешней памяти компьютера и постоянного при- Хенения: c) программное обеспечение, управляющее хранением и обработкой данных; d) настраиваемые диалоговые окна, сохраняемые в компьютере в виде объектов специального типа; е) системное программное обеспечение, управляющее системой. 2. По характеру хранимой информации базы данных бывают: а) иерархические, b) централизованные; с) фактографические, d) локальные: е) распределенные. 3. По хранения информации базы данных бывают: а) фактографические; b) распределенные; с) табличные; а) документальные: е) сетевые. та это. 4. Запись базы данных а) столбцы таблицы, образующие структуру базы данных; b) набор данных об одном объекте; строки таблицы, содержащие определенную информацию; d) заголовок таблицы базы данных; е) строка заголовка реляционной таблицы. 5. Поле, значение которого не повторяется в различных записях, на- зывается: а) первичным ключом; Б) типом поля; с) внешним ключом;
Январь имеет номер месяца 1, сентябрь - номер 9. Между ними 8 месяцев.
Тогда в А3 будет месяц номер 9+8=17. Но у нас 12 месяцев повторяются в цикле, поэтому вычитаем 12 и получаем 17-12=5. И в ячейке А3 будет месяц май.
В А4 будет месяц с номером 5+8=13, но 13>12, поэтому получим 13-12=1, а это январь. Январь у нас был, и что идет дальше известно: А5 - сентябрь, А6 - май, А7 - январь.
ответ: ЯНВАРЬ.
var a:array[1..999]of integer;
i,n:integer;
begin
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
end;
WRITELN;
write ('Числа введённые пользователем: ');
for i:=1 to n do
write (a[i],' ');
WRITELN;
WRITELN;
write ('Положительные: ');
for i:=1 to n do
begin
if a[i]>0 then write (a[i],' ');
end;
WRITELN;
write ('Отрицательные: ');
for i:=1 to n do
begin
if a[i]<0 then write (a[i],' ');
end;
WRITELN;
write ('Чётные: ');
for i:=1 to n do
begin
if a[i] mod 2 = 0 then write (a[i],' ');
end;
WRITELN;
write ('Нечётные: ');
for i:=1 to n do
begin
if a[i] mod 2 <> 0 then write (a[i],' ');
end;
end.