База данных — это информационная модель, позволяющая упорядоченно хранить данные о группе объектов, обладающих одинаковым набором свойств.
Базами данных являются, например, различные справочники, энциклопедии и т. п.
Информация в базах данных хранится в упорядоченном виде. Так, в записной книжке все записи упорядочены по алфавиту, а в библиотечном каталоге либо по алфавиту (алфавитный каталог), либо в соответствии с областью знания (предметный каталог).
Существует несколько различных типов баз данных: табличные, иерархические и сетевые.
Табличные базы данных. Табличная база данных содержит перечень объектов одного типа, т. е. объектов с одинаковым набором свойств. Такую базу данных удобно представлять в виде двумерной таблицы.
Задача 1. var a,b,c,x: integer; begin readln(x); a:= x mod 10; x:= x div 10; b:= x mod 10; x:= x div 10; c:= x; if (a=b) or (a=c) or (b=c) then writeln('Есть') else writeln('Нет'); end.
Задача 2. var a,b: integer; begin readln(a,b); If ((a>0) and (b>0)) or ((a<=0) and (b<=0)) then writeln('да') else writeln('нет'); end.
Задача 3. var x: real; begin readln(x); if (x=<5) and (x>=1) then writeln('да') else writeln('нет'); end.
Задача 4. Справка: Счастливым считается полученный в общественном транспорте билет, в шестизначном номере которого сумма первых трёх цифр совпадает с суммой трёх последних. var x: integer; begin readln(x); for i:=1 to 3 do begin d:= x mod 10; x:= x div 10; s1:= s1+d end; for i:=1 to 3 do begin d:= x mod 10; x:= x div 10; s2:= s2+d end; if s1=s2 then writeln('да') else writeln('нет') end.
Задача 5. Справка: год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. var x: integer; begin readln(x); If ((x mod 4=0) and (x mod 100<>0)) or (x mod 400=0) then writeln('да') else writeln('нет') end.
Программа выведет индекс элемента "pink", нумерация идёт с нуля, поэтому наш индекс: 3
ответ: 2) 3