СОСТАВЬТЕ СЛОВЕСНЫЙ АЛГОРИТМ РИСОВАНИЯ ЛИНИИ В ВИДЕ БЛОК СХЕМЫ ОЧЕНЬ

3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв): 
c. Продумать структуру базы данных 
b. Дать имя каждому полю в базе данных 
a. Занести данные в таблицу 
d. Осуществить сортировку записей в базе данных 

4) Сортировка – это: 
c) расположение записей в определённом порядке 

5) Примером базы данных может служить: 
c) Телефонная книга 

6) В каком из перечисленных типов полей, данные могут выглядеть таким образом: 01. 07. 85? 
d) В поле дата/время 

7) Какая из перечисленных баз данных имеет представленный ниже вид: 
№ фамилия имя класс физика история 
1. Горин Петя 10 а 4 5 
2. Петров Юра 10 б 3 4 
3. Васильева Катя 11 а 5 5 
4. Петрова Юля 11 а 4 4 
d) Табличная 

8) Сколько полей в представленной выше базе данных? 
d) 6 

9) БД содержит информацию об учениках компью¬терной школы: имя; номер группы; за тест; за задание; общее количество . Какого типа должно быть поле «Общее количество бал¬лов»? 
c) числовое; 

10) БД содержит информацию о каждой собаке из клуба соба¬ководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля? 
b) текстовое, текстовое, дата, текстовое, числовое; 

11) Для отбора записей об учащихся, которые имеют по физике оценку «3» , а по истории не ниже «4» , нужно задать условие отбора по столбцам «физика» и «история» соответственно: 
c) = 3 и >=4 

12) Для выбора текстовых значений, начинающихся на букву « К » и состоящих из 4 символов, нужно задать условие отбора: 
c) К??? 

1. 
var 
n,i,k,sum,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;

for i:=1 to k do begin
g:= n mod 10;
sum:= sum + g;
n:=n div 10;
end;
if sum> 10 then
writeln('верно')
else
('неверно');
end.

2.
var 
n,i,k,p,h,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;
p:=n mod 10;
n:=n div 10;
for i:=1 to k-1do begin
g:= n mod 10;
if g = p then
 h += 1;
n:=n div 10;
end;
writeln(h);
end.

3.
const
n=10;
var

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

begin
a[n]:=0;
for i:=1 to 9 do
readln(a[i]);

for i:=1 to n do 
 sum:=sum+a[i];
writeln(sum);
end.

4.
var

n:integer;

begin

readln(n);

while n<>0 do begin
n:=n div 10;
k += 1;
end;
if k = 4 then
writeln('число четырехзначное')
else
writeln('число не четырехзначное');
end.

5.
var

a:array[1..10]of integer;
i:byte;

begin

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

for i:=1 to 10 do begin
 if a[i] = 2 then
writeln('да есть');
break;
end;
end.